60 条题解
-
0怪盗~基德 LV 10 @ 2009-06-07 19:40:36
f[1]=1
f[2]=2
f[i]=f*2+f+1 -
02009-04-22 14:39:32@
!!!!!!!!!没玩过!!!!!!!!!!!
-
02009-03-23 21:06:39@
貌似
下面的
if(i%2==1) a[1]++;
最好写在进位的前面
// 固然任何偶数+1 不会进位 // -
02009-03-21 03:55:59@
编译通过...
├ 测试数据 01:答案正确... 0ms
├ 测试数据 02:答案正确... 0ms
├ 测试数据 03:答案正确... 0ms
├ 测试数据 04:答案正确... 0ms
├ 测试数据 05:答案正确... 0ms
├ 测试数据 06:答案正确... 0ms
├ 测试数据 07:答案正确... 0ms
├ 测试数据 08:答案正确... 0ms
├ 测试数据 09:答案正确... 0ms
├ 测试数据 10:答案正确... 0ms
---|---|---|---|---|---|---|---|-
Accepted 有效得分:100 有效耗时:0ms#include "stdio.h"
int main()
{
long n,i,j,l;
int a[1000]={0};
scanf("%ld",&n);
l=1;a[1]=0;
for(i=1;i=1;i--)
printf("%d",a[i]);
return 0;
} -
02009-02-26 19:18:31@
不知道什么是九连环,不做!!!
嘻嘻!!! -
02009-02-22 13:42:29@
为什么开到 250 在输入"800"的时候答案前面会有"8000..."
-
02009-02-19 19:34:34@
波拿巴...波拿巴...波拿巴...波拿巴...我...波拿巴...中...波拿巴...了...波拿巴...波拿巴魔咒...波拿巴...波拿巴...波拿巴......
-
02009-02-19 19:33:43@
gzh shenjinbin
-
02009-02-19 19:33:39@
bobo 我爱你!爱着你!就像老鼠爱大米!~~bobo 我爱你!爱着你!就像老鼠爱大米!~~bobo 我爱你!爱着你!就像老鼠爱大米!~~bobo 我爱你!爱着你!就像老鼠爱大米!~~bobo 我爱你!爱着你!就像老鼠爱大米!~~bobo 我爱你!爱着你!就像老鼠爱大米!~~
-
02009-02-19 19:32:10@
gao zi hao ai jiao ao
-
02009-02-05 22:23:22@
这题真的很简单
f(n)=(2^(n+1)-2^(1-n mod 2))/3
除了高精度没有别的了 -
02009-01-30 22:13:40@
var
a:array[1..1000]of longint;
i,j,k,n:longint;
begin
readln(n);a[1]:=0;k:=1;
for i:=0 to n do
if odd(i)then
begin
for j:=1 to k do
a[j]:=a[j]*2;
inc(a[1]);
for j:=1 to k do
begin
inc(a[j+1],a[j]div 10);
a[j]:=a[j]mod 10;
end;
if a[k+1]>0then inc(k);
end
else begin
for j:=1 to k do
a[j]:=a[j]*2;
for j:=1 to k do
begin
inc(a[j+1],a[j]div 10);
a[j]:=a[j]mod 10;
end;
if a[k+1]>0then inc(k);
end;
for i:=k downto 1 do
write(a[i]);
writeln;
end.
第100题纪念 -
02009-01-27 22:47:51@
……可怜的孩子,居然要一步步去试……5th
-
02009-01-23 22:48:21@
第96个,刷高一个百分点(^_^)
-
02009-01-23 14:53:41@
这么烂的题目
Var
s: Array [1..1000] Of LongInt;
a,b,c,d,i,j,k,l,m,n: LongInt;
Begin
For i := 1 To 1000 Do s[i] := 0;
Readln(a);
s[1] := 1;
l := 1;
For b := 2 To a Do Begin
For i := 1 To l Do
s[i] := s[i] * 2;
s[1] := s[1] + b Mod 2;
For i := 1 To l Do Begin
s[i + 1] := s[i + 1] + s[i] Div 10;
s[i] := s[i] Mod 10;
End;
If s[l + 1] > 0 Then l := l + 1;
End;
For i := l DownTo 1 Do Write(s[i]);
End. -
02009-01-21 17:29:05@
可怕的九连环~~~~800个环步数241位!
-
02009-01-21 15:44:35@
1.方程不太难写;
2.要用高精度. -
02009-01-10 00:17:42@
f[i] == f + f*2 + 1
f[1] == 1
f[2] == 2
That's all.编译通过...
├ 测试数据 01:答案正确... 0ms
├ 测试数据 02:答案正确... 0ms
├ 测试数据 03:答案正确... 0ms
├ 测试数据 04:答案正确... 0ms
├ 测试数据 05:答案正确... 0ms
├ 测试数据 06:答案正确... 0ms
├ 测试数据 07:答案正确... 0ms
├ 测试数据 08:答案正确... 0ms
├ 测试数据 09:答案正确... 0ms
├ 测试数据 10:答案正确... 0ms
---|---|---|---|---|---|---|---|-
Accepted 有效得分:100 有效耗时:0ms -
02009-01-03 09:16:47@
到现在还不知道9连环怎么玩。。。
简单的递推,如果数据范围小,或许10行都用不上。 -
02009-01-03 01:13:48@
第77个。。高精调了半天。。