题目:陶陶摘苹果 rqnoj12
题目描述
陶陶家的院子里有一棵苹果树,每到秋天树上就会结出10个苹果。苹果成熟的时候,陶陶就会跑去摘苹果。陶陶有个30厘米高的板凳,当她不能直接用手摘到苹果的时候,就会踩到板凳上再试试。
现在已知10个苹果到地面的高度,以及陶陶把手伸直的时候能够达到的最大高度,请帮陶陶算一下她能够摘到的苹果的数目。假设她碰到苹果,苹果就会掉下来。
输入格式
输入包括两行数据。第一行包含10个100到200之间(包括100和200)的整数(以厘米为单位)分别表示10个苹果到地面的高度,两个相邻的整数之间用一个空格隔开。第二行只包括一个100到120之间(包含100和120)的整数(以厘米为单位),表示陶陶把手伸直的时候能够达到的最大高度。
输出格式
输出包括一行,这一行只包含一个整数,表示陶陶能够摘到的苹果的数目。
样例输入
100 200 150 140 129 134 167 198 200 111 110
样例输出
5
这道题是很简单的了,应该是除了A+B Problem之外最简单的一道了。
读入身高后直接加上板凳的30,然后一个循环判断,树高<=(身高+30)就+1,最后输出就ok
代码是Pascal的
program rqnoj12;
procedure init;
begin
assign(input,'rqnoj12.in');
assign(output,'rqnoj12.out');
reset(input);
rewrite(output);
end;
procedure outit;
begin
close(input);
close(output);
halt;
end;
procedure readdata;
var
i,x,num:longint;
a:array[1..10] of longint;
begin
num:=0;
for i:=1 to 10 do read(a[i]);
read(x);
inc(x,30);
for i:=1 to 10 do
if x>=a[i] then
inc(num);
writeln(num);
end;
procedure main;
begin
end;
begin
init;
readdata;
main;
outit;
end.