题解

165 条题解

  • 0
    @ 2009-10-22 15:33:28

    还以为是空间中随便截,wa了一次,囧...

  • 0
    @ 2009-10-11 10:03:05

    Var

    n:int64;

    Begin

    readln(n);

    write(n*(n+1) div 2+1);

    End.

  • 0
    @ 2009-10-04 19:28:29

    program p1324;

    var

    n,m:int64;

    t,p:real;

    begin

    readLn(n);

    t:=((1+n)/2)*n;

    p:=t+1;

    m:=trunc(p);

    writeLn(m);

    end.

    两次才A,第一次忘记保存就直接打开PAS复制了.....

  • 0
    @ 2009-08-30 14:52:57

    只要用int64就AC了,水。

  • 0
    @ 2009-08-26 08:52:01

    竟然不可横切!

  • 0
    @ 2009-08-25 20:31:41

    var

    n:qword;

    begin

    read(n);

    write((n*(n+1)) div 2+1);

    end.

    水题~~~

  • 0
    @ 2009-08-21 10:47:10

    var s:int64;

    n,i:longint;

    begin

    readln(n);

    for i:=1 to n do

    s:=s+i;

    writeln(s+1);

    end.

  • 0
    @ 2009-08-16 21:33:04

    水题!!

  • 0
    @ 2009-08-14 22:49:32

    数学问题,水题

    program ex50;

    var n,m:int64;

    begin

    readln(n);

    m:=n*(n+1) div 2+1;

    writeln(m);

    readln;

    end.

  • 0
    @ 2009-08-10 17:57:04

    编译通过...

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

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

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

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

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

    ├ 测试数据 06:答案正确... 0ms

    ├ 测试数据 07:答案正确... 0ms

    ├ 测试数据 08:答案正确... 0ms

    ├ 测试数据 09:答案正确... 0ms

    ├ 测试数据 10:答案正确... 0ms

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

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

    program lx;

    var

    n,k :longint;

    begin

    readln(n);

    k:=1+(n*(n+1) div 2;

    writeln(n);

    end.

    切记:

    此题中蛋糕不可横切,所以用此公式可解。

  • 0
    @ 2009-08-07 21:36:52

    这是切大饼吗?每次都叠在一起切得?

  • 0
    @ 2009-08-04 13:26:45

    我是沙茶..

  • 0
    @ 2009-08-04 10:45:56

    var

    n,sum:int64;

    begin

    read(n);

    sum:=1+(n*(n+1)) div 2;

    write(sum);

    end.



    平面划分

  • 0
    @ 2009-07-28 17:16:38

    同样的代码,同样的puppy,第一次超时...第二次AC

    编译通过...

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

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

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

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

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

    ├ 测试数据 06:答案正确... 0ms

    ├ 测试数据 07:答案正确... 0ms

    ├ 测试数据 08:答案正确... 0ms

    ├ 测试数据 09:答案正确... 25ms

    ├ 测试数据 10:答案正确... 25ms

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

    Accepted 有效得分:100 有效耗时:50ms

    var a,n:longint;

    rs:int64;

    begin

    read(n);

    if n

  • 0
    @ 2009-07-26 11:20:04

    模拟才是王道~~~!!!^_^(我很菜,大家不要BS我~)

    编译通过...

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

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

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

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

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

    ├ 测试数据 06:答案正确... 0ms

    ├ 测试数据 07:答案正确... 0ms

    ├ 测试数据 08:答案正确... 9ms

    ├ 测试数据 09:答案正确... 72ms

    ├ 测试数据 10:答案正确... 72ms

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

    Accepted 有效得分:100 有效耗时:153ms

  • 0
    @ 2009-07-23 16:14:06

    program das;

    var n,s:int64;

    begin

    read(n);

    s:=1+(n*(n+1)) div 2;

    write(s);

    end.

    农夫山泉

    无语

  • 0
    @ 2009-07-23 15:48:25

    var i,k:int64;

    begin

    readln(i);

    k:=1+(i+1)*i div 2;

    writeln(k);

    end.

    汗哒哒滴。。

  • 0
    @ 2009-06-02 21:16:19

    OTZ.........我居然在用高精!!!!!!。。。。。。。强烈地鄙视我吧~~~~~~~~~~!!!!!!!!啊~~~~~~~~~~~~~~~~~~~~~~~~~~~TAT

  • 0
    @ 2009-05-01 22:41:20

    竟然开到qword

  • 0
    @ 2009-04-08 16:30:22

    编译通过...

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

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

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

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

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

    ├ 测试数据 06:答案正确... 0ms

    ├ 测试数据 07:答案正确... 0ms

    ├ 测试数据 08:答案正确... 0ms

    ├ 测试数据 09:答案正确... 0ms

    ├ 测试数据 10:答案正确... 0ms

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

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

    比A+B Program强一丁点,怎么会难度1???????????????????????????

    通过率44%???????????????????????????????????????

    6行搞定,超过的是SB.

信息

ID
1324
难度
3
分类
其他 | 数学 点击显示
标签
递交数
1832
已通过
925
通过率
50%
被复制
4
上传者