60 条题解
-
0
道不完的忧愁 LV 4 @ 2008-12-30 17:12:37
编译通过...
├ 测试数据 01：答案正确... 0ms
├ 测试数据 02：答案正确... 0ms
├ 测试数据 03：答案正确... 0ms
├ 测试数据 04：答案正确... 0ms
├ 测试数据 05：答案正确... 0ms
├ 测试数据 06：答案正确... 0ms
├ 测试数据 07：答案正确... 0ms
├ 测试数据 08：答案正确... 0ms
├ 测试数据 09：答案正确... 0ms
├ 测试数据 10：答案正确... 0ms
---|---|---|---|---|---|---|---|-
Accepted 有效得分：100 有效耗时：0ms -
0
编译通过...
├ 测试数据 01：答案正确... 0ms
├ 测试数据 02：答案正确... 0ms
├ 测试数据 03：答案正确... 0ms
├ 测试数据 04：答案正确... 0ms
├ 测试数据 05：答案正确... 0ms
├ 测试数据 06：答案正确... 0ms
├ 测试数据 07：答案正确... 0ms
├ 测试数据 08：答案正确... 0ms
├ 测试数据 09：答案正确... 0ms
├ 测试数据 10：答案正确... 0ms
---|---|---|---|---|---|---|---|-
Accepted 有效得分：100 有效耗时：0ms
简单递归...
f[n]:=f[n-1]*2(n mod 2=0)
f[n]:=f[n-1]*2+1(n mod 2=1) -
0
JackDavid127 LV 10 @ 2008-12-18 22:28:32
高兴哈……第32个AC
高精度烦死我了，幸亏我高精度挺熟，嘿嘿……
30行程序。
-
0
gnaggnoyil LV 10 @ 2008-12-16 17:43:04
楼下这样能AC?这个需要高精度...
ps:做个广告:高精度推荐运算符重载的形式,简洁易懂.
-
0
program p1492;
var n,i,j,k,l:longint;
a:array[1..1000] of integer;
Begin
readln(n);
l:=1;a[1]:=0;
for i:=1 to n do
begin
for j:=1 to l do
a[j]:=a[j]*2;
for j:=1 to l do
if a[j]>9 then begin a[j+1]:=a[j+1]+1;a[j]:=a[j]-10; end;
if a[l+1]>0 then inc(l);
if i and 1=1 then inc(a[1]);
end;
for i:=l downto 1 do
write(a[i]);
End.
F[n]:=f[n-1]*2 (n mod 2=0)
F[n]:=f[n-1]*2+1 (n mod 2=1)
道不完的忧愁
LV 4
@ 2008-12-30 17:12:37
