program hp;

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

g,h,i:integer;

begin

for i:=1 to 10 do

read(a[i] );

readln(g);

h:=0;

g:=g+30;

for i:=1 to 10 do

if a[i]

#include

using namespace std;

int main()

{

int apple[10],h,i,b;

for(i=0;i>apple);

cin>>h,h+=30;

for(i=b=0;i

program sunny;

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

i,n,s:integer;

begin

for i:=1 to 10 do

read(a[i]);

readln(n);

s:=0;

for i:=1 to 10 do

if a[i]

var

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

l,i,j,s:integer;

begin

s:=0;

for i:=1 to 10 do

read(a[i]);

read(l);

for i:=1 to 10 do

if l+30>=a[i] then inc(s);

writeln(s);

end.

var

i,n,s:longint;

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

begin

for i:=1 to 10 do

read(a[i]);

readln;

readln(n);

s:=0;

for i:=1 to 10 do

if n+30>=a[i] then

s:=s+1;

writeln(s);

end.

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

b,i,s:integer;

begin

s:=0;

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

readln;

readln(b);

for i:=1 to 10 do

if a[i]

program x;

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

　　i,l,s:integer;

begin

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

readln;

readln(l);

l:=l+30;

for i:=1 to 10 do if a[i]

program x;

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

i,l,s:integer;

begin

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

readln;

readln(l);

l:=l+30;

for i:=1 to 10 do if a[i]

program sf;

var i,h,n:integer;

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

begin

n:=0;

for i:= 1 to 10 do

read(a[i]); readln;

read(h);

for i:=1 to 10 do

if a[i]

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

q,b,i,s:integer;

begin

s:=0;

for i:=1 to 10 do

read(a[i]);

readln;

readln(b);

q:=b+30;

for i:=1 to 10 do

if a[i]

hn

program lt;

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

b,c,d:longint;

begin

for b:=1 to 10 do

readln(a[i]);

readln(c);d:=0;

for b:=1 to 10 do

if c+30>=a[i] then d:=d+1;

writeln(d);

end.

var

i,n,s:longint;

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

begin

for i:=1 to 10 do

read(a[i]);

readln;

readln(n);

s:=0;

for i:=1 to 10 do

if n+30>=a[i] then

s:=s+1;

writeln(s);

end.

var

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

b,num,i:integer;

begin

num:=0;

for i:=1 to 10 do

read(a[i]);

readln(b);

begin

for i:= 1 to n do

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

then num:=num+1;

end;

write('num=',num);

end.

program zhjh(input,output);

var

i,n,s:longint;

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

begin

for i:=1 to 10 do

read(a[i]);

readln;

readln(n);

s:=0;

for i:=1 to 10 do

if n+30>=a[i] then

s:=s+1;

writeln(s);

end.

program apple;

var h,i,j,s:integer;

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

begin

j:=0;

for i:=1 to 10 do

　　begin

　　 read(s);

　　 a[i]:=s;

　　end;

readln;

read(s);

for i:=1 to 10 do

　　if a[i]

program apple;

var h,i,j,s:integer;

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

begin

j:=0;

for i:=1 to 10 do

begin

read(s);

a[i]:=s;

end;

readln;

read(s);

for i:=1 to 10 do

if a[i]

系统正在处理您的请求 请勿刷新此页……

您有新消息

请点击 这里 进入消息中心

16 / 39 (41%) 　 首页 站务 公告　|　题库/分类/原题 记录 比赛 团队 交流 讨论　|　U-Space 搜索 换肤 正體顯示　|　登出

公告 News >> 　　关于Vijos被黑的声明 (2008-12-8 22:16:46) 　　关于近期Vijos被挂马的说明 (2008-12-4 22:15:23) 　　CSC WorkGroup 邀请赛IV 评测完毕 (2008-11-12 23:33:35) 　　首届海峡两岸青少年程序设计大赛 大陆地区邀请赛 完成评测 (2008-11-9 1:01:22) 　　海峡两岸程序设计大赛将延期举行 (2008-10-25 22:56:19)

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

记录号 Flag 得分 记录信息 环境 评测机 程序提交时间

R1161902 Accepted 100 From 董－

　 P1102 FPC Vijos Dolphin 2009-2-28 21:54:48

From zhouyc

陶陶摘苹果 全国青少年信息学奥林匹克分区联赛 (NOIp) 竞赛原题

编译通过...

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

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

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

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

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

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

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

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

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

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

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

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

program temp;

var

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

i,j,k,m,n:integer;

begin

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

readln(n); n:=n+30;

for i:=1 to 10 do if a[i]

var

i,n,a:integer;

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

begin

for i:= 1 to 10 do

read(m[i]);

read(n);

a:=0;

for i:=1 to 10 do

if (m[i]

Program taotao;

var i,m:integer;

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

　　n:100..200;

begin

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

readln(n);

n:=n+30;

for i:=1 to 10 do begin

if (a[i]