457 条题解
-
0
jhao LV 3 @ 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. -
02007-04-26 16:40:47@
初三比赛的题,拿到高一做,17行就解决了。。。是简洁了好多。。
-
02007-04-25 22:24:49@
郁闷 搞什么..............对了 说什么无评测结果 气死我
-
02007-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 -
02007-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. -
02007-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. -
02007-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有点弱~~
-
02007-03-19 21:33:21@
#include
int main(void)
{
int a[10],i,j,h,temp=0;
for(i=0;i -
02007-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. -
02007-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. -
02007-02-27 10:19:26@
不说什么了,注意等于的情况
-
02007-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.
给大家提供一个正确答案吧! -
02007-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. -
02006-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 -
02006-11-09 13:38:05@
楼下的
if apple[i] -
02006-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);
} -
02006-11-03 21:23:16@
ft。。。。。。
普及组真是好啊 。。。。。。直接在提交栏写真是爽。。....也只有这种题可以.唉......
-
02006-10-22 20:05:35@
只有这样的简单题才可以抚慰我那被noip刺伤了的心
-
02006-10-20 20:15:24@
不知道对不对喔`
\
` -
02006-10-17 17:00:37@
5555我两次才AC...