panyuyang (UID: 104730)
注册于 2015-01-16 12:17:36, 最后登录于 2015-02-13 13:31:23, 目前离线.
解决了 2 道题目，RP: 33.93 (No. 22614)
-
讨论 (0)
这个用户还没有发布过讨论 -
贡献 (1)
-
递交 (2)
最近递交
状态 题目 递交者 时间 内存 语言 递交时间 P1809 三国游戏 panyuyang 154ms 2.652 MiB Pascal 2015-01-18 16:47:02 P1102 陶陶摘苹果 panyuyang 0ms 744.0 KiB Pascal 2015-01-18 10:59:15
个人简介
program kkkk;
var
i,j,tao,k:integer;
a:array[1..10] of integer;
begin
for i:=1 to 10 do
read(a[i]);
readln(tao);
tao:=tao+30;
k:=0;
for i:=1 to 10 do
if tao>=a[i] then k:=k+1;
writeln(k);
end.