题解

457 条题解

  • 0
    @ 2007-05-20 16:41:25

    program aaa;

    var

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

    n,i,t:integer;

    begin

    for i:=1 to 10 do

    read(a[i]);

    readln(n); t:=0;

    for i:=1 to 10 do

    if n+30>=a[i]

    then t:=t+1;

    writeln(t);

    end.

  • 0
    @ 2007-04-26 16:40:47

    初三比赛的题,拿到高一做,17行就解决了。。。是简洁了好多。。

  • 0
    @ 2007-04-25 22:24:49

    郁闷 搞什么..............对了 说什么无评测结果 气死我

  • 0
    @ 2007-03-06 13:31:07

    var

    a,b,i,j:longint;

    begin

    readln(a);

    readln(b);

    i:=0;

    for i:=1 to 10 do

    if a

  • 0
    @ 2007-03-03 10:59:48

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

    t,j,b,c:integer;

    begin

    readln(b,c);

    for b:=1 to b do readln(a);

    for j:=1 to b-1 do

    if a>a[j];

    then a:=a[j];a[j]:=t;

    t:=a;

    writeln(t);

    end.

  • 0
    @ 2007-03-27 16:37:43

    var

    i,h,b,c:longint;

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

    begin

    for i:=1 to 10 do

    read(a[i]);

    read(b);

    b:=b+30;

    for h:=1 to 10 do

    begin

    if b>=a[h] then c:=c+1;

    end;

    writeln(c);

    end.

  • 0
    @ 2007-03-21 17:01:33

    编译通过...

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

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

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

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

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

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

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

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

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

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

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

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

    有点弱~~

  • 0
    @ 2007-03-19 21:33:21

    #include

    int main(void)

    {

    int a[10],i,j,h,temp=0;

    for(i=0;i

  • 0
    @ 2007-03-19 13:19:32

    var

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

    mark,c,i:integer;

    begin

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

    readln;

    read(c);

    for i:=1 to 10 do

    if c+30>=a[i] then inc(mark);

    writeln(mark);

    end.

  • 0
    @ 2007-03-12 17:38:08

    program e8;

    var

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

    h,i,s:integer;

    begin

    s:=0;

    for i:=1 to 10 do

    read(a[i]);

    readln;

    read(h);

    h:=h+30;

    for i:=1 to 10 do

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

    writeln(s);

    end.

  • 0
    @ 2007-02-27 10:19:26

    不说什么了,注意等于的情况

  • 0
    @ 2007-02-10 13:44:52

    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
    @ 2007-02-08 22:53:46

    program a;

    var i,j,k:longint;

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

    begin

    for i:=1 to 10 do

    read(a[i]);

    readln(k);

    j=0;

    for i=1 to 10 do

    if a[i]-30> then

    j=j+1;

    writeln(j);

    end.

  • 0
    @ 2006-11-13 20:56:58

    编译通过...

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

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

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

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

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

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

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

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

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

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

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

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

  • 0
    @ 2006-11-09 13:38:05

    楼下的

    if apple[i]

  • 0
    @ 2006-11-07 18:42:17

    main()

    {int a[10],h,i,j=0;

    scanf("%d,%d",&a[10],&h);

    for(i=0;i=h+30)

    else j++;

    }

    printf("%d",j);

    }

  • 0
    @ 2006-11-03 21:23:16

    ft。。。。。。

    普及组真是好啊 。。。。。。

    直接在提交栏写真是爽。。....也只有这种题可以.唉......

  • 0
    @ 2006-10-22 20:05:35

    只有这样的简单题才可以抚慰我那被noip刺伤了的心

  • 0
    @ 2006-10-20 20:15:24

    不知道对不对喔`\`

  • 0
    @ 2006-10-17 17:00:37

    5555我两次才AC...

信息

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