题解

457 条题解

  • 0
    @ 2008-09-21 20:45:11

    program tt(input,output);

    var

    p:array[1..10] of integer;

    t,i,g:integer;

    begin

    for i:= 1 to 10 do

    read(p[i]);

    readln(t);

    t:=t+30;

    g:=0;

    for i:=1 to 10 do

    if (t>=p[i]) then

    g:=g+1;

    writeln(g);

    end.

  • 0
    @ 2008-09-15 08:34:57

    PROGRAM EX3;

    VAR

    A:ARRAY[1..12] OF LONGINT;

    I:SHORTINT;

    BEGIN

      FOR I:=1 TO 11 DO READ(A);

    A[12]:=0;

    A[11]:=A[11]+30;

    FOR I:=1 TO 10 DO IF A[11]>=A THEN A[12]:=A[12]+1;

    WRITELN(A[12]);

    END.

  • 0
    @ 2008-09-13 11:14:42

    编译通过...

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

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

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

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

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

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

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

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

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

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

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

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

    哈哈,AC 成功啊

    PROGRAM EX3;

    VAR

    A:ARRAY[1..12] OF LONGINT;

    I:SHORTINT;

    BEGIN

    FOR I:=1 TO 11 DO READ(A);

    A[12]:=0;

    A[11]:=A[11]+30;

    FOR I:=1 TO 10 DO IF A[11]>=A THEN A[12]:=A[12]+1;

    WRITELN(A[12]);

    END.

  • 0
    @ 2008-09-12 21:30:22

    program p1102;

    var a:array[1..10] of integer;

    h,i,p:integer;

    begin

    for i:=1 to 10 do

    read(a[i]);

    readln;

    read(h);

    h:=h+30;p:=0;

    for i:=1 to 10 do

    if a[i]

  • 0
    @ 2008-09-12 20:59:29

    var

    a:array[1..10] of integer;

    n,i,tot:integer;

    begin

    for i:=1 to 10 do

    read(a[i]);

    readln;

    read(n);

    for i:=1 to 10 do

    if (n+30>=a[i])

    then inc(tot);

    write(tot);

    end.

    so easy

  • 0
    @ 2008-09-09 21:13:36

    #include

    int main ()

    {

      int a[10],h,i,t;

      FILE *fin,*fout;

      fin=fopen ("apple.in","r");

      for (i=0;i

  • 0
    @ 2008-09-07 15:53:28

    var t:array[1..25000] of longint;

    n,i,b,c:longint;

    a,s:real;

    procedure qsort(v1,v2:integer);

    var i,j,x,mid:longint;

    begin

    i:=v1;j:=v2;mid:=t[(v1+v2) div 2];

    while i

  • 0
    @ 2008-09-05 22:17:21

    #include

    using namespace std;

    int main()

    {

    int a[11],i,s=0;

    for(i=1;i>a[i];

    cin>>a[0];

    for(i=1;i

  • 0
    @ 2008-09-05 21:32:38

    编译通过...

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

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

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

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

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

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

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

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

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

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

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

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

    var qgw,lf,i:longint;

    a:array[1..1001] of longint;

    begin

    for i:=1 to 10 do read(a[i]);

    read(lf);

    qgw:=0;

    for i:=1 to 10 do

    if lf+30>=a[i] then inc(qgw);

    write(qgw);

    end.

    实在水题!

    直接在提交上 一次AC诶- -!

  • 0
    @ 2008-09-09 20:58:04

    #include

    int main ()

    {

    int a[10],h,i,t;

    FILE *fin,*fout;

    fin=fopen ("apple.in","r");

    for (i=0;i

  • 0
    @ 2008-09-15 20:44:02

    #include

    int main ()

    {

    int a[10],h,i,t;

    FILE *fin,*fout

    fin=fopen ("apple.in","r");

    for (i=0;i

  • 0
    @ 2008-09-03 18:59:07

    编译通过...

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

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

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

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

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

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

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

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

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

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

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

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

  • 0
    @ 2008-09-02 15:42:57

    编译通过...

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

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

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

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

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

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

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

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

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

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

    一次AC

    提高我自尊啊~

  • 0
    @ 2008-09-01 13:17:08

    var

    a:array[1..10]of integer;

    b,s,i:integer;

    begin

    s:=0;

    for i:=1 to 10 do

    read(a[i]);

    readln(b);

    b:=b+30;

    for i:=1 to 10 do

    if a[i]

  • 0
    @ 2008-08-31 18:06:35

    var

    a:array[1..10]of 100..200;

    b,i,s:integer;

    begin

    s:=0;

    for i:=1 to 10 do

    read(a[i]);

    readln;

    readln(b);

    b:=b+30;

    for i:=1 to 10 do

    if b>=a[i]then s:=s+1;

    writeln(s);

    end.

  • 0
    @ 2008-08-31 17:01:02

    我靠,我晕!读入数据时居然打成了readln

    郁闷,这种水题也要降我的AC率

    喷血到死

  • 0
    @ 2008-08-30 13:03:03

    可怜我这题用高精度.......

  • 0
    @ 2008-08-28 10:35:03

    写错三次验证码

    ‘of’ 写成了‘o’!!!

    题太好了就这样!!

  • 0
    @ 2008-08-25 19:59:03

    水!水!水!水!水!水!水!水!水!水!水!水!水!水!水!水!水!水!水!水!水!水!水!水!水!水!水!水!水!水!水!水!水!水!水!水!水!水!水!水!水!水!水!水!水!水!水!水!水!水!水!水!水!水!水!水!水!水!水!水!水!水!水!水!水!水!水!水!水!水!水!水!水!水!水!水!水!水!水!水!水!水!水!水!水!水!水!水!水!水!水!水!水!水!水!水!水!水!水!水!水!水!水!水!水!水!水!水!水!水!水!水!水!水!水!水!水!水!水!水!水!水!水!水!水!水!水!水!水!水!水!水!水!水!水!水!水!水!水!水!水!水!水!水!水!水!水!水!水!水!水!水!水!水!水!水!水!水!水!水!水!水!水!水!水!水!水!水!水!水!水!水!水!水!水!水!水!水!水!水!水!水!水!水!水!水!水!水!水!水!水!水!水!水!水!水!水!水!水!水!水!水!水!水!水!水!水!水!水!水!水!水!水!水!水!水!水!水!水!水!水!水!水!水!水!水!水!水!水!水!水!水!水!水!水!水!水!水!水!水!水!水!水!水!水!水!水!水!水!水!水!水!水!水!水!水!水!水!水!水!水!水!水!水!水!水!水!水!水!水!水!水!水!水!水!水!水!水!水!水!水!水!水!水!水!水!水!水!水!水!水!水!水!水!水!水!水!水!水!水!水!水!水!水!水!水!水!水!水!水!水!水!水!水!水!水!水!水!水!水!水!水!水!水!水!水!水!水!水!水!水!水!水!水!水!水!水!水!水!水!水!水!水!水!水!水!水!水!水!水!水!水!水!水!水!水!水!水!水!水!水!水!水!水!水!水!水!水!水!水!水!水!水!水!水!水!水!水!水!水!水!水!水!水!水!水!水!水!水!水!水!水!水!水!水!水!水!水!水!水!水!水!水!水!水!水!水!水!水!水!水!水!水!水!水!水!水!水!水!水!水!水!水!水!水!水!水!水!水!水!水!水!水!水!水!水!水!水!水!水!水!水!水!水!水!水!水!水!水!水!水!水!水!水!水!水!水!水!水!水!水!水!水!水!水!水!水!水!水!水!水!水!水!水!水!水!水!水!水!水!水!水!水!水!水!水!水!水!水!水!水!水!水!水!水!水!水!水!水!水!水!水!水!水!水!水!水!水!水!水!水!水!水!水!水!水!水!水!水!水!水!水!水!水!水!水!水!水!水!水!水!水!水!水!水!水!水!水!水!水!水!水!水!水!水!水!水!水!水!水!水!水!水!水!水!水!水!水!水!水!水!水!水!水!水!水!水!水!水!水!水!水!水!水!水!水!水!水!水!水!水!水!水!水!水!水!水!水!水!水!水!水!水!水!水!水!水!水!水!水!水!水!水!水!水!水!水!水!水!水!水!水!水!水!水!水!水!水!水!水!水!水!水!水!水!水!水!水!水!水!水!水!水!水!水!水!水!水!水!水!水!水!水!水!水!水!水!水!水!水!水!水!水!水!水!水!水!水!水!水!水!水!水!水!水!水!水!水!水!水!水!水!水!水!水!水!水!水!水!水!水!水!水!水!水!水!水!水!水!水!水!水!水!水!水!水!水!水!水!水!水!水!水!水!水!水!水!水!水!水!水!水!水!水!水!水!水!水!水!水!水!水!水!水!水!水!水!水!水!水!水!水!水!水!水!水!水!水!水!水!水!水!水!水!水!水!水!水!水!水!水!水!水!水!水!水!水!水!水!水!水!水!水!水!水!水!水!水!水!水!水!水!水!水!水!水!水!水!水!水!水!水!水!水!水!水!水!水!水!水!水!水!水!水!水!水!水!水!水!水!水!水!水!水!水!水!水!水!水!水!水!水!水!水!水!水!水!水!水!水!水!水!水!水!水!水!水!水!水!水!水!水!水!水!水!水!水!水!水!水!水!水!水!水!水!水!水!水!水!水!水!水!水!水!水!水!水!水!水!水!水!水!水!水!水!水!水!水!水!水!水!水!水!水!水!水!水!水!水!水!水!水!水!水!水!水!水!水!水!水!水!水!水!水!水!水!水!水!水!水!水!水!水!水!水!水!水!水!水!水!水!水!水!水!水!水!水!水!水!水!水!水!水!水!水!水!水!水!水!水!水!水!水!水!水!水!水!水!水!水!水!水!水!水!水!水!水!水!水!水!水!水!水!水!水!水!水!水!水!水!水!水!水!水!水!水!水!水!水!水!水!水!水!水!水!水!水!水!水!水!水!水!水!水!水!水!水!水!水!水!水!水!水!水!水!水!水!水!水!水!水!水!水!水!水!水!水!水!水!水!水!水!水!水!水!水!水!水!水!水!水!水!水!水!水!水!水!水!水!水!水!水!水!水!水!水!水!水!水!水!水!水!水!水!水!水!水!水!水!水!水!水!水!水!水!水!水!水!水!水!水!水!水!水!水!水!水!水!水!水!水!水!水!水!水!水!水!水!水!水!水!水!水!水!水!水!水!水!水!水!水!水!水!水!水!水!水!水!水!水!水!水!水!水!水!水!水!水!水!水!水!水!水!水!水!水!水!水!水!水!水!水!水!水!水!水!水!水!水!水!水!水!水!水!水!水!水!水!水!水!水!水!水!水!水!水!水!水!水!水!水!水!水!水!水!水!水!水!水!水!水!水!水!水!水!水!水!水!水!水!水!水!水!水!水!水!水!水!水!水!水!水!水!水!水!水!水!水!水!水!水!水!水!水!水!水!水!水!水!水!水!水!水!水!水!水!水!水!水!水!水!水!水!水!水!水!水!水!水!水!水!水!水!水!水!水!水!水!水!水!水!水!水!水!水!水!水!水!水!水!水!水!水!水!水!水!水!水!水!水!水!水!水!水!水!水!水!水!水!水!水!水!水!水!水!水!水!水!水!水!水!水!水!水!水!水!水!水!水!水!水!水!水!水!水!水!水!水!水!水!水!水!水!水!水!水!水!水!水!水!水!水!水!水!水!水!水!水!水!水!水!水!水!水!水!水!水!水!水!水!水!水!水!水!水!水!水!水!水!水!水!水!水!水!水!水!水!水!水!水!水!水!水!水!水!水!水!水!水!水!水!水!水!水!水!水!水!水!水!水!水!水!水!水!水!水!水!水!水!水!水!水!水!水!水!水!水!水!水!水!水!水!水!水!水!水!水!水!水!水!水!水!水!水!水!水!水!水!水!水!水!水!水!水!水!水!水!水!水!水!水!水!水!水!水!水!水!水!水!水!水!水!水!水!水!水!水!水!水!水!水!水!水!水!水!水!水!水!水!水!水!水!水!水!水!水!水!水!水!水!水!水!水!水!水!水!水!水!水!水!水!水!水!水!水!水!水!水!水!水!水!水!水!水!水!水!水!水!水!水!水!水!水!水!水!水!水!水!水!水!水!水!水!水!水!水!水!水!水!水!水!水!水!水!水!水!水!水!水!水!水!水!水!水!水!水!水!水!水!水!水!水!水!水!水!水!水!水!水!水!水!水!水!水!水!水!水!水!水!水!水!水!水!水!水!水!水!水!水!水!水!水!水!水!水!水!水!水!水!水!水!水!水!水!水!水!水!水!水!水!水!水!水!水!水!水!水!水!水!水!水!水!水!水!水!水!水!水!水!水!水!水!水!水!水!水!水!水!水!水!水!水!水!水!水!水!水!水!水!水!水!水!水!水!水!水!水!水!水!水!水!水!水!水!水!水!水!水!水!水!水!水!水!水!水!水!水!水!水!水!水!水!水!水!水!水!水!水!水!水!水!水!水!水!水!水!水!水!水!水!水!水!水!水!水!水!水!水!水!水!水!水!水!水!水!水!水!水!水!水!水!水!水!水!水!水!水!水!水!水!水!水!水!水!水!水!水!水!水!水!水!水!水!水!水!水!水!水!水!水!水!水!水!水!水!水!水!水!水!水!水!水!水!水!水!水!水!水!水!水!水!水!水!水!水!水!水!水!水!水!水!水!水!水!水!水!水!水!水!水!水!水!水!水!水!水!水!水!水!水!水!水!水!水!水!水!水!水!水!水!水!水!水!水!水!水!水!水!水!水!水!水!水!水!水!水!水!水!水!水!水!水!水!水!水!水!水!水!水!水!水!水!水!水!水!水!水!水!水!水!水!水!水!水!水!水!水!水!水!水!水!水!水!水!水!水!水!水!水!水!水!水!水!水!水!水!水!水!水!水!水!水!水!水!水!水!水!水!水!水!水!水!水!水!水!水!水!水!水!水!水!水!水!水!水!水!水!水!水!水!水!水!水!水!水!水!水!水!水!水!水!水!水!水!水!水!水!水!水!水!水!水!水!水!水!水!水!水!水!水!水!水!水!水!水!水!水!水!水!水!水!水!水!水!水!水!水!水!水!水!水!水!水!水!水!水!水!水!水!水!水!水!水!水!水!水!水!水!水!水!水!水!水!水!水!水!水!水!水!水!水!水!水!水!水!水!水!水!水!水!水!水!水!水!水!水!水!水!水!水!水!水!水!水!水!水!水!水!水!水!水!水!水!水!水!水!水!水!水!水!水!水!水!水!水!水!水!水!水!水!水!水!水!水!水!水!水!水!水!水!水!水!水!水!水!水!水!水!水!水!水!水!水!水!水!水!水!水!水!水!水!水!水!水!水!水!水!水!水!水!水!水!水!水!水!水!水!水!水!水!水!水!水!水!水!水!水!水!水!水!水!水!水!水!水!水!水!水!水!水!水!水!水!水!水!水!水!水!水!水!水!水!水!水!水!水!水!水!水!水!水!水!水!水!水!水!水!水!水!水!水!水!水!水!水!水!水!水!水!水!水!水!水!水!水!水!水!水!水!水!水!水!水!水!水!水!水!水!水!水!水!水!水!水!水!水!水!水!水!水!水!水!水!水!水!水!水!水!水!水!水!水!水!水!水!水!水!水!水!水!水!水!水!水!水!水!水!水!水!水!水!水!水!水!水!水!水!水!水!水!水!水!水!水!水!水!水!水!水!水!水!水!水!水!水!水!水!水!水!水!水!水!水!水!水!水!水!水!水!水!水!水!水!水!水!水!水!水!水!水!水!水!水!水!水!水!水!水!水!水!水!水!水!水!水!水!水!水!水!水!水!水!水!水!水!水!水!水!水!水!水!水!水!水!水!水!水!水!水!水!水!水!水!水!水!水!水!水!水!水!水!水!水!水!水!水!水!水!水!水!水!水!水!水!水!水!水!水!水!水!水!水!水!水!水!水!水!水!水!水!水!水!水!水!水!水!水!水!水!水!水!水!水!水!水!水!水!水!水!水!水!水!水!水!水!水!水!水!水!水!水!水!水!水!水!水!水!水!水!水!水!水!水!水!水!水!水!水!水!水!水!水!水!水!水!水!水!水!水!水!水!水!水!水!水!水!水!水!水!水!水!水!水!水!水!水!水!水!水!水!水!水!水!水!水!水!水!水!水!水!水!水!水!水!水!水!水!水!水!水!水!水!水!水!水!水!水!水!水!水!水!水!水!水!水!水!水!水!水!水!水!水!水!水!水!水!水!水!水!水!水!水!水!水!水!水!水!水!水!水!水!水!水!水!水!水!水!水!水!水!水!水!水!水!水!水!水!水!水!水!水!水!水!水!水!水!水!水!水!水!水!水!水!水!水!水!水!水!

  • 0
    @ 2008-08-25 16:54:07

信息

ID
1102
难度
3
分类
模拟 点击显示
标签
递交数
16806
已通过
8840
通过率
53%
被复制
67
上传者