【模拟】陶陶摘苹果
题目:陶陶摘苹果 rqnoj12
题目描述
陶陶家的院子里有一棵苹果树,每到秋天树上就会结出10个苹果。苹果成熟的时候,陶陶就会跑去摘苹果。陶陶有个30厘米高的板凳,当她不能直接用手摘到苹果的时候,就会踩到板凳上再试试。
现在已知10个苹果到地面的高度,以及陶陶把手伸直的时候能够达到的最大高度,请帮陶陶算一下她能够摘到的苹果的数目。假设她碰到苹果,苹果就会掉下来。
输入格式
输入包括两行数据。第一行包含10个100到200之间(包括100和200)的整数(以厘米为单位)分别表示10个苹果到地面的高度,两个相邻的整数之间用一个空格隔开。第二行只包括一个100到120之间(包含100和120)的整数(以厘米为单位),表示陶陶把手伸直的时候能够达到的最大高度。
输出格式
输出包括一行,这一行只包含一个整数,表示陶陶能够摘到的苹果的数目。
样例输入
样例输出
这道题是很简单的了,应该是除了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.
..... 转载请注明出处 ..... http://oijzh.cnblogs.com ..... by jiangzh