24 分为 1+2+24

和分为 12+24

都是1224

能算同一种吗?

program zhjh;

var

s,n:longint;

procedure yin(n:longint);

var

i:longint;

begin

if n1 then begin

for i:=1 to n div 2 do begin

s:=s+1;

yin(i);

end;

end;

end;

begin

readln(n);

s:=1;

yin(n);

writeln(s);

end.

编译通过...

├ 测试数据 01：答案正确... 0ms

├ 测试数据 02：答案正确... 0ms

├ 测试数据 03：答案正确... 0ms

├ 测试数据 04：答案正确... 0ms

├ 测试数据 05：答案正确... 0ms

---|---|---|---|---|---|---|---|-

Accepted 有效得分：100 有效耗时：0ms

program dsa;

var n,s:longint;

procedure change(x:longint);

var i:integer;

begin

inc(s);

for i:=1 to x div 2 do change(i);

end;

begin

read(n);

s:=0;

change(n);

write(s);

end.

农夫山泉

var

n:integer;

s:longint;

procedure main(n:integer);

var

i:integer;

begin

inc(s);

for i:=1 to trunc(n/2) do

main(i);

end;

begin

read(n);

s:=0;

main(n);

write(s);

end.

递归

program p1130;

var

i,j,n:integer;

a:array[1..1000] of longint;

begin

a[0]:=1;

readln(n);

for i:=1 to n do

if odd(i) then a[i]:=a

else a[i]:=a+a[i div 2];

writeln(a[n]);

readln

end.

编译通过...

├ 测试数据 01：答案正确... 0ms

├ 测试数据 02：答案正确... 0ms

├ 测试数据 03：答案正确... 0ms

├ 测试数据 04：答案正确... 0ms

├ 测试数据 05：答案正确... 0ms

---|---|---|---|---|---|---|---|-

Accepted 有效得分：100 有效耗时：0ms

program count;

var

n:integer;

amount:longint;

procedure try(m:integer);

var

i:integer;

begin

inc(amount);

for i:=1 to trunc(m/2) do

begin

try(i);

end;

end;

begin

readln(n);

try(n);

writeln(amount);

end.

var

n,m,i,j:longint;

a:array[1..1000] of longint;

begin

readln(n);

a[1]:=1;

for i:=2 to n do

begin

if j=1 then begin a[i]:=a;j:=0;end else begin a[i]:=a[i div 2]+a;j:=1;end;

end;

writeln(a[n]);

end.

program jyh;

var

n,i,j,k:integer;

a:array[1..1000] of longint;

begin

readln(n);

a[1]:=1;

a[2]:=2;

a[3]:=2;

for i:=4 to n do

begin

if i mod 20 then

a[i]:=a+a[(i-1) div 2]

else a[i]:=a+a[i div 2];

end;

writeln(a[n]);

end.

水水水水水水水水水水水水水水水水水

var

n,i,j:longint;

h:array[1..1000] of longint;

begin

read(n);

for i:=1 to n do

begin

h[i]:=1;

for j:=1 to i div 2 do inc(h[i],h[j]);

end;

writeln(h[n]);

end.

program chansheng;

var n,shu:longint;

procedure sub(n:longint; var shu:longint);

var i:longint;

begin

for i:=1 to n div 2 do

begin

inc(shu);

if i>1 then sub(i,shu);

end;

end;

begin

readln(n);

shu:=0;

sub(n,shu);

write(shu+1);

end.

数据好弱啊,我在机子上打上了1000,楞是用了10秒左右才出来,勇敢的交表,居然AC了

编译通过...

├ 测试数据 01：答案正确... 0ms

├ 测试数据 02：答案正确... 0ms

├ 测试数据 03：答案正确... 0ms

├ 测试数据 04：答案正确... 0ms

├ 测试数据 05：答案正确... 0ms

---|---|---|---|---|---|---|---|-

Accepted 有效得分：100 有效耗时：0ms

program chansheng;

var n,shu:longint;

procedure sub(n:longint; var shu:longint);

var i:longint;

begin

for i:=1 to n div 2 do

begin

inc(shu);

if i>1 then sub(i,shu);

end;

end;

begin

readln(n);

shu:=0;

sub(n,shu);

write(shu+1);

end.

12 / 41 (29%) 　 首页 站务 公告　|　题库/分类/原题 记录 比赛 团队 交流 讨论　|　U-Space 搜索 换肤 正體顯示　|　登出

公告 News >> 　　关于Vijos被黑的声明 (2008-12-8 22:16:46) 　　关于近期Vijos被挂马的说明 (2008-12-4 22:15:23) 　　CSC WorkGroup 邀请赛IV 评测完毕 (2008-11-12 23:33:35) 　　首届海峡两岸青少年程序设计大赛 大陆地区邀请赛 完成评测 (2008-11-9 1:01:22) 　　海峡两岸程序设计大赛将延期举行 (2008-10-25 22:56:19)

---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|--

From zhouyc

数的计数　 全国青少年信息学奥林匹克分区联赛 (NOIp) 竞赛原题

描述 Description

　　我们要求找出具有下列性质数的个数(包含输入的自然数n):

　　先输入一个自然数n(n≤1000)，然后对此自然数按照如下方法进行处理

　　 l·不作任何处理:

　　2·茬它的左边加上一个自然数，但该自然数不能超过原数的一半;

　　3·加上数后，继续按此规则进行处理，直到不能再立生自然数为止。

样例输入 Sample Input

6

样例输出 Sample Output

6

时间限制 Time Limitation

每个测试点1s

来源 Source

noip2001普及组第一题

Flag 　　

题号 　　P1130

类型(?) 　　其它

通过 　　4043人

提交 　　6791次

通过率 　　60%

难度 　　1

提交 讨论 题解 状态

xb45

　Copyright Vijos 高效信息学在线评测系统 © 2005-2008. www.Vijos.cn Powered by Vivian Snow　关于　联系　帮助

　Vijos Infor ---|- Total Users : 43338 | Online Users / Processes : 151 / 61873 | Proc. Time : 184 ms | Current Time : 2009-4-8 12:15:31　湘ICP备06015828号

因为习惯用int64,结果我running了半天，害得在我后面的都排了一页，结果我那道题到现在还在running，我重新交了一次，把int64改为longint就行了。唉，悲哀。

其实这道题我不怎么明白。不过看了一位牛人提供的数列就明白了

以下是我的题解：program shudejishu;

var n:int64;

i:longint;

a:array[0..1001] of longint;

begin

read(n);

a[0]:=1;

a[1]:=1;

a[2]:=2;

a[3]:=2;

for i:= 1 to n do

begin

if i mod 2=1 then a[i]:=a;

if i mod 2=0 then a[i]:=a[i div 2]+a;

end;

writeln(a[n]);

end.

program ll;

var

s:longint;

n:integer;

procedure change(n:longint);

var

i:integer;

begin

inc(s);

for i:=1 to n div 2 do change(i);

end;

begin

read(n);

s=0;

change(n);

writeln(s);

end.

var

　　n,i:integer;

　　a:array[1..1000]of longint;

begin

　　readln(n);

　　a[1]:=1;

　　for i:=2 to n do begin

　　　　a[i]:=a+((i+1)mod 2)*a[i div 2];

　　end;

　　writeln(a[n]);

end.

var

　　n,i:integer;

　　a:array[1..1000]of longint;

begin

　　readln(n);

　　a[1]:=1;

　　for i:=2 to n do begin

　　　　a[i]:=a+((i+1)mod 2)*a[i div 2];

　　end;

　　writeln(a[n]);

end.

var

　　n,i:integer;

　　a:array[1..1000]of longint;

begin

　　readln(n);

　　a[1]:=1;

　　for i:=2 to n do begin

　　　　a[i]:=a+((i+1)mod 2)*a[i div 2];

　　end;

　　writeln(a[n]);

end.

不要嚷嚷着什么dp,这有最优子结构吗!

思路：

n=6时:

for(i=2;i

这个很短了吧：

var

n,i:integer;

a:array[1..1000]of longint;

begin

readln(n);

a[1]:=1;

for i:=2 to n do begin

a[i]:=a+((i+1)mod 2)*a[i div 2];

end;

writeln(a[n]);

end.