题解

1323 条题解

  • 0
    @ 2009-07-17 12:46:38

    program yanshen;

    vara,b,c,d,e,f:integer;

    begin

    read(a,b);if (a>=0)and(b

  • 0
    @ 2009-07-17 09:42:42

    var

    f,g,a,b:int64;

    c,d,e:longint;

    begin

    read(a,b);

    randomize;

    g:=b;f:=0;

    c:=random(65535);

    for d:=1 to c do begin g:=b;for e:=1 to a do begin g:=g+1;if fg then f:=g end; end;

    writeln(f);

    end.

    编译通过...

    ├ 测试数据 01:运行超时...

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

    ├ 测试数据 03:运行超时...

    ├ 测试数据 04:运行超时...

    ├ 测试数据 05:运行超时...

    ├ 测试数据 06:运行超时...

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

    ├ 测试数据 08:运行超时...

    ├ 测试数据 09:运行超时...

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

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

    Unaccepted 有效得分:30 有效耗时:856ms

    编译通过...

    ├ 测试数据 01:运行超时...

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

    ├ 测试数据 03:运行超时...

    ├ 测试数据 04:运行超时...

    ├ 测试数据 05:运行超时...

    ├ 测试数据 06:运行超时...

    ├ 测试数据 07:运行超时...

    ├ 测试数据 08:运行超时...

    ├ 测试数据 09:运行超时...

    ├ 测试数据 10:运行超时...

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

    Unaccepted 有效得分:10 有效耗时:103ms

  • 0
    @ 2009-07-17 09:17:40

    program pas001; {程序首部 程序名}

    var

    a,b:integer; {申请变量A,B}

    begin {程序开始}

    read(a,b); {读入A,B两数}

    write(a+b); {计算A+B,并输出结果}

    end.{程序结束}

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

    var x,y:integer;

    begin

    read(x,y);

    x:=x+y;

    write(x);

    end.

  • 0
    @ 2009-11-02 23:16:16

    /*Tydus的无变量声明一句话版,还有待提高,有时间再想*/

    #include

    int main(_){

    return scanf("%d%d",(short*)&_,((short*)&_)+1),printf("%d",(_>>16)+_&0xffff),0;

    }

    顺便来一句,gcc牛人,我都没想到……

    那我也改一下好了

    int main(){

    return scanf("%d%d",(short*)&_,((short*)&_)+1),
    ;

    }

    编译通过...

    ├ 测试数据 01:运行时错误...|错误号: 1758480772

    ├ 测试数据 02:运行时错误...|错误号: 372704355

    ├ 测试数据 03:运行时错误...|错误号: 569392414

    ├ 测试数据 04:运行时错误...|错误号: 1417242975

    ├ 测试数据 05:运行时错误...|错误号: 1870944835

    ├ 测试数据 06:运行时错误...|错误号: 1460748855

    ├ 测试数据 07:运行时错误...|错误号: 861544890

    ├ 测试数据 08:运行时错误...|错误号: 1005143206

    ├ 测试数据 09:运行时错误...|错误号: 1860057300

    ├ 测试数据 10:运行时错误...|错误号: 1141050567

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

    Unaccepted 有效得分:0 有效耗时:0ms

    数据分析完毕,还好都是16位的,要32位还要提交两回-_-:

    26832 18820

    5687 1123

    8688 15646

    21625 26975

    28548 23107

    22289 16951

    13146 8634

    15337 17574

    28382 14548

    17411 3271

  • 0
    @ 2009-07-13 20:36:42

    #include

    void main()

    {

    int i,j,m;

    scanf("%d,%d",&i,&j);

    m=i+j;

    printf("%d",m);

    }

  • 0
    @ 2009-07-13 09:01:07

    输出的结果是两个数的和;

    先运行(a+b);

    .....

  • 0
    @ 2009-07-11 00:23:57

    program jia;

    var x,y,s:longer;

    begin

    writeln('x=','y=');readln(x,y);

    s=x+y;

    write('s=',s);

    end.

  • 0
    @ 2009-07-10 21:04:04

    #include

    int Sum(int a,int b);

    void main()

    {

    int x,y;

    printf("请输入第一个数:\n");

    scanf("%d",&x);

    printf("请输入第二个数:\n");

    scanf("%d",&y);

    printf("两个数的和=%d\n",Sum(x,y));

    }

    int Sum(int a,int b)

    {

    int sum=0;

    sum=a+b;

    return sum;

    }

  • 0
    @ 2009-07-09 14:43:12

    program p1000;

    var

    a,b:integer;

    begin

    readln(a,b);

    writeln(a+b);

    end.

  • 0
    @ 2009-07-09 11:38:06

    program skyline;

    var

    x,y:longint;

    begin

    readln(x,y);

    writeln(x+y);

    end.

    //for beginngers

  • 0
    @ 2009-07-08 19:31:15

    program a;

    var x,y,c:longint;

    begin

    readln(x,y);

    writeln(c);

    end.

  • 0
    @ 2009-07-08 18:14:27

    var a,b:integer;

    begin

    repeat

    readln(a,b);

    until(a>=0)and(b>=0);

    write(a+b);

    end.

  • 0
    @ 2009-06-27 13:20:01

    program kjs;

    var a,b:longint;

    begin

    read(a,b);

    write(a+b);

    end.

  • 0
    @ 2009-06-24 11:15:27

    看了gcc的题解才知道原来偷数据可以这么偷

    PS:严重BS某些刷屏者,VIJOS简直成小说下载站了

  • 0
    @ 2009-06-18 20:52:45

    program sum;

    var

    a,b:longint;

    begin

    readln(a,b);

    writeln(a+b);

    end.

  • 0
    @ 2009-06-17 19:04:00

    var i,j:longint;

    begin

    read(i,j);

    writeln(i+j);

    end.

  • 0
    @ 2009-06-13 22:25:28

    program sum;

    var

    x,y:integer;

    begin

    readln(x,y);

    writeln(x+y);

    end.

  • 0
    @ 2009-06-12 19:27:31

    Program qh;

    Var :X,Y;integer;

    begin

    read(X,Y);

    write(X+Y);

    end.

  • 0
    @ 2009-06-08 20:52:10

    编译通过...

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

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

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

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

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

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

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

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

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

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

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

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

    var

    a,b:longint;

    i:extended;

    begin

    read(a,b);

    i:=0.0004;

    repeat

    i:=i+0.0004;

    until abs(i-a-b)

信息

ID
1000
难度
9
分类
(无)
标签
(无)
递交数
74446
已通过
28492
通过率
38%
被复制
223