60 条题解

  • 0
    @ 2009-06-07 19:40:36

    f[1]=1

    f[2]=2

    f[i]=f*2+f+1

  • 0
    @ 2009-04-22 14:39:32

    !!!!!!!!!没玩过!!!!!!!!!!!

  • 0
    @ 2009-03-23 21:06:39

    貌似

    下面的

    if(i%2==1) a[1]++;

    最好写在进位的前面

    // 固然任何偶数+1 不会进位 //

  • 0
    @ 2009-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;

    }

  • 0
    @ 2009-02-26 19:18:31

    不知道什么是九连环,不做!!!

    嘻嘻!!!

  • 0
    @ 2009-02-22 13:42:29

    为什么开到 250 在输入"800"的时候答案前面会有"8000..."

  • 0
    @ 2009-02-19 19:34:34

    波拿巴...波拿巴...波拿巴...波拿巴...我...波拿巴...中...波拿巴...了...波拿巴...波拿巴魔咒...波拿巴...波拿巴...波拿巴......

  • 0
    @ 2009-02-19 19:33:43

    gzh shenjinbin

  • 0
    @ 2009-02-19 19:33:39

    bobo 我爱你!爱着你!就像老鼠爱大米!~~bobo 我爱你!爱着你!就像老鼠爱大米!~~bobo 我爱你!爱着你!就像老鼠爱大米!~~bobo 我爱你!爱着你!就像老鼠爱大米!~~bobo 我爱你!爱着你!就像老鼠爱大米!~~bobo 我爱你!爱着你!就像老鼠爱大米!~~

  • 0
    @ 2009-02-19 19:32:10

    gao zi hao ai jiao ao

  • 0
    @ 2009-02-05 22:23:22

    这题真的很简单

    f(n)=(2^(n+1)-2^(1-n mod 2))/3

    除了高精度没有别的了

  • 0
    @ 2009-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题纪念

  • 0
    @ 2009-01-27 22:47:51

    ……可怜的孩子,居然要一步步去试……5th

  • 0
    @ 2009-01-23 22:48:21

    第96个,刷高一个百分点(^_^)

  • 0
    @ 2009-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.

  • 0
    @ 2009-01-21 17:29:05

    可怕的九连环~~~~800个环步数241位!

  • 0
    @ 2009-01-21 15:44:35

    1.方程不太难写;

    2.要用高精度.

  • 0
    @ 2009-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

  • 0
    @ 2009-01-03 09:16:47

    到现在还不知道9连环怎么玩。。。

    简单的递推,如果数据范围小,或许10行都用不上。

  • 0
    @ 2009-01-03 01:13:48

    第77个。。高精调了半天。。

信息

ID
1492
难度
2
分类
其他 | 数学高精度 点击显示
标签
(无)
递交数
810
已通过
454
通过率
56%
被复制
2
上传者