151 条题解

  • 0
    @ 2008-10-16 23:09:43

    编译通过...

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

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

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

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

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

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

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

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

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

  • 0
    @ 2008-10-15 18:58:32

    var

    sbsk,n,a,b,x,y,s:longint;

    begin

    readln(sbsk);

    for a:=1 to sbsk-1 do

    begin

    s:=a; b:=s;

    repeat

    inc(b);

    inc(s,b);

    until s>=sbsk;

    if s=sbsk then writeln(a,' ',b);

    end;

    end.

    编译通过...

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

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

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

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

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

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

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

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

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

  • 0
    @ 2008-10-12 21:14:43

    program vp1302;

    var

    m,i,j,s:integer;

    begin

    read(m);

    for i:=1 to m-1 do

    begin

    s:=0;

    j:=i;

    repeat

    s:=s+j;

    if s=m

    then

    writeln(i,' ',j);

    j:=j+1

    until s>m

    end

    end.

  • 0
    @ 2008-10-08 18:37:03

    编译通过...

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

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

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

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

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

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

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

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

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

    枚举可以过。爽!

  • 0
    @ 2008-10-05 21:47:57

    发大水啦!!!

    var

    m,s,i,j:longint;

    begin

    readln(m);

    for i:=1 to m-1 do begin

    s:=0;

    j:=i;

    repeat

    s:=s+j;

    if s=m then

    writeln(i,' ',j);

    inc(j);

    until s>=m;

    end;

    end.

  • 0
    @ 2008-10-03 23:43:31

    ....这个...枚举也能过?

  • 0
    @ 2008-09-29 18:04:30

    #include

    int main(){

    long n,i,j;

    scanf("%ld",&n);

    for (i=1;i

  • 0
    @ 2008-09-29 16:29:48

    编译通过...

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

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

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

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

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

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

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

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

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

    我是第2008个过的人!恭喜我吧!纪念一下!

    ^o^

    #include

    int main(){

    int m,i,j,s;

    scanf("%d",&m);

    for (i=1;i

  • 0
    @ 2008-09-28 14:37:46

    编译通过...

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

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

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

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

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

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

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

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

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

    。。。

    无语了 数据弱···居然0MS

  • 0
    @ 2008-09-26 22:36:33

    额····今晚做的第N个水题···终于AC了··

    编译通过...

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

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

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

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

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

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

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

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

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

    for(i=1;i

  • 0
    @ 2008-09-22 20:42:39

    够水的哈……无畏级狂搜……

  • 0
    @ 2008-09-17 20:25:27

    编译通过...

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

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

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

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

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

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

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

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

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

  • 0
    @ 2008-09-13 07:49:04

    编译通过...

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

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

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

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

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

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

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

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

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

    var i,j,s,m:longint;

    begin

    readln(m);

    for i:=1 to m div 2 do

    begin

    j:=i;

    repeat

    inc(s,j);

    inc(j);

    until

    s>=m;

    if s=m then

    writeln(i,' ',j-1);

    s:=0;

    end;

    readln;

    end.

  • 0
    @ 2008-09-10 19:58:10

    记录号 Flag 得分 记录信息 环境 评测机 程序提交时间

    R820627 Accepted 100 From 695202454-

      P1302 FPC Vivid Puppy 2008-9-10 19:57:13

    From cqwshll

    连续自然数和

    编译通过...

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

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

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

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

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

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

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

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

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

    过了,哈哈。。。。。。。。。。。。。。。。。。。。。。。。。。。。。。。。。。。。。。。。。

  • 0
    @ 2008-09-05 14:57:01

    program P_1;

    var m,num:int64;

    i,j:longword;

    begin

    read(m);

    for i:=1 to (m div 2) do

    begin

    num:=i;j:=i;

    repeat

    j:=j+1;

    num:=num+j;

    until num>=m;

    if num=m then

    writeln(i,' ',j);

    end;

    end.

    方便易行

  • 0
    @ 2008-09-02 20:47:55

    #include

    main()

    {long input;

    long left,right;

    int i;

    scanf("%ld",&input);

    for(i=1415;i>1;i--)

    {if(i%2==0)

    {if(input%i==i/2)

    {left=input/i-i/2+1;

    right=input/i+i/2;

    if(left>0&&right>0)

    {printf("%ld %ld\n",left,right);}}}

    if(i%2==1)

    {if(input%i==0)

    {left=input/i-i/2;

    right=input/i+i/2;

    if(left>0&&right>0)

    {printf("%ld %ld\n",left,right);}}}}

    }

  • 0
    @ 2008-08-31 09:59:40

    枚举第一项,用高斯求和公式。

  • 0
    @ 2008-08-28 12:05:34

    编译通过...

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

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

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

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

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

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

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

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

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

    穷举中间数,0msAC.穷举时数列的奇偶很重要

  • 0
    @ 2008-08-22 13:43:06

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

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

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

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

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

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

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

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

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

    从来不敢枚举。。怕超时。。

  • 0
    @ 2008-08-14 13:19:41

    枚举项数,计算中间项,哦可,诶西!

信息

ID
1302
难度
3
分类
数论 | 数位统计 点击显示
标签
(无)
递交数
2540
已通过
1290
通过率
51%
被复制
3
上传者