456 条题解
-
0
lxjhk LV 6 @ 2009-09-06 14:29:08
program test;
var
x:array[1..10] of integer;
t,i,j,ans,h:longint;
begin
ans:=0;
for i:=1 to 10 do
begin
read(x[i]);
end;
readln(h);
for i:=1 to 10 do
begin
if h+30>=x[i] then inc(ans);
end;
writeln(ans);
readln;
end. -
02009-09-06 08:38:13@
var
i:array[1..10] of longint;
a,b,c,d:longint;
begin
d:=0;
for a:=1 to 10 do
read(i[a]);
read(c);
b:=c+30;
for a:=1 to 10 do
if a -
02009-09-05 16:40:01@
编译通过...
├ 测试数据 01:答案正确... 0ms
├ 测试数据 02:答案正确... 0ms
├ 测试数据 03:答案正确... 0ms
├ 测试数据 04:答案正确... 0ms
├ 测试数据 05:答案正确... 0ms
├ 测试数据 06:答案正确... 0ms
├ 测试数据 07:答案正确... 0ms
├ 测试数据 08:答案正确... 0ms
├ 测试数据 09:答案正确... 0ms
├ 测试数据 10:答案正确... 0ms
---|---|---|---|---|---|---|---|-
Accepted 有效得分:100 有效耗时:0ms -
02009-08-28 14:27:34@
-
02009-08-25 12:50:18@
var a:array[1..1000] of integer;
i,n:integer;
begin
for i:=1 to 10 do
read(a[i]);
readln(n);
for i:=1 to10 do
begin
if a[i]+30>a[i] then s:=s+1;
end;
writeln(s);
end. -
02009-08-23 20:43:38@
program lt1;
var
a:array[1..10] of integer;
b,c,i:integer;
begin
for i:=1 to 10 do readln(a[i]);readln(b);
for i:=1 to 10 do
begin
if b+30>=a[i] then c:=c+1;
end;
writeln(c);
end. -
02009-08-23 12:54:01@
-
02009-08-19 08:57:59@
编译通过...
├ 测试数据 01:答案正确... 0ms
├ 测试数据 02:答案正确... 0ms
├ 测试数据 03:答案正确... 0ms
├ 测试数据 04:答案正确... 0ms
├ 测试数据 05:答案正确... 0ms
├ 测试数据 06:答案正确... 0ms
├ 测试数据 07:答案正确... 0ms
├ 测试数据 08:答案正确... 0ms
├ 测试数据 09:答案正确... 0ms
├ 测试数据 10:答案正确... 0ms
---|---|---|---|---|---|---|---|-
Accepted 有效得分:100 有效耗时:0msvar f,i,w:longint;
a:array[0..100000]of longint;
begin
for i:=1 to 10 do read(a[i]);
readln(f);
for i:=1 to 10 do
if f+30>=a[i] then inc(w);
write(w);
end.Flag Accepted
题号 P1102
类型(?) 模拟
通过 10000人
提交 16166次
通过率 62%
难度 1第10000个AC
-
02009-08-12 10:30:13@
猥琐的地方是从0开始.......
-
02009-08-11 14:19:13@
program ex1;
var
a:array[1..10] of longint;
i,j,k:integer;
begin
for i:=1 to 10 do
read a[i];
p:=0
for i:=1 to 10 do
if j+30>=[a]
then k:=k+1;
writeln(k);
end. -
02009-08-10 15:44:37@
program ex1;
var
a:array[1..10] of longint;
i,j,p:integer;
begin
for i:=1 to 10 do
read a[i];
p:=0
for i:=1 to 10 do
if j+30>=[a]
then p:=p+1;
writeln(p);
end. -
02009-08-07 14:16:18@
AC!
编译通过...
├ 测试数据 01:答案正确... 0ms
├ 测试数据 02:答案正确... 0ms
├ 测试数据 03:答案正确... 0ms
├ 测试数据 04:答案正确... 0ms
├ 测试数据 05:答案正确... 0ms
├ 测试数据 06:答案正确... 0ms
├ 测试数据 07:答案正确... 0ms
├ 测试数据 08:答案正确... 0ms
├ 测试数据 09:答案正确... 0ms
├ 测试数据 10:答案正确... 0ms
---|---|---|---|---|---|---|---|-
Accepted 有效得分:100 有效耗时:0ms -
02009-08-06 19:38:30@
农夫山泉
-
02009-07-31 18:30:08@
水中之水
program P1102(input,output);
var
high:array [1..10] of longint;
i,all,total:integer;
begin
for i:=1 to 10 do
read(high[i]);
read(total);
all:=0;
for i:=1 to 10 do
if total+30>=high[i] then
all:=all+1;
writeln(all);
end. -
02009-07-31 18:23:55@
哈哈哈!提高成功率的方法就是——刷水题
-
02009-07-30 21:10:54@
水。。。。。。。。。。。。。。。。
编译通过...
├ 测试数据 01:答案正确... 0ms
├ 测试数据 02:答案正确... 0ms
├ 测试数据 03:答案正确... 0ms
├ 测试数据 04:答案正确... 0ms
├ 测试数据 05:答案正确... 0ms
├ 测试数据 06:答案正确... 0ms
├ 测试数据 07:答案正确... 0ms
├ 测试数据 08:答案正确... 0ms
├ 测试数据 09:答案正确... 0ms
├ 测试数据 10:答案正确... 0ms
---|---|---|---|---|---|---|---|-
Accepted 有效得分:100 有效耗时:0ms -
02009-07-28 19:39:49@
#include
main()
{int d,b,i,c=30;
int a[10];
printf("请输入10个苹果的高度");
for(i=0;i -
02009-07-28 19:16:00@
水题……
var a:array[1..10]of integer;
n,tot,i:integer;
begin
for i:=1 to 10 do
read(a[i]);
readln(n);
n:=n+30;
for i:=1 to 10 do
if n>=a[i] then inc(tot);
writeln(tot);
end. -
02009-07-27 10:20:07@
编译通过...
├ 测试数据 01:答案正确... 0ms
├ 测试数据 02:答案正确... 0ms
├ 测试数据 03:答案正确... 0ms
├ 测试数据 04:答案正确... 0ms
├ 测试数据 05:答案正确... 0ms
├ 测试数据 06:答案正确... 0ms
├ 测试数据 07:答案正确... 0ms
├ 测试数据 08:答案正确... 0ms
├ 测试数据 09:答案正确... 0ms
├ 测试数据 10:答案正确... 0ms
---|---|---|---|---|---|---|---|-
Accepted 有效得分:100 有效耗时:0ms
var
i,n,tall,q:integer;
a:array[1..10] of integer;
begin
for i:=1 to 10 do read(a[i]);
readln;
read(tall);
for i:=1 to 10 do
if a[i] -
02009-07-25 16:49:16@
var
a:array[1..10]of integer;
i,j,n:integer;
begin
j:=0;
for i:=1 to 10 do
read(a[i]);
read(n);
n:=n+30;
for i:=1 to 10 do
if a[i]