level 5
没有人吗？
2015年08月01日 22点08分
level 12
level 7
time:=1000;
while (time>0) and (not keypressed) do
begin
time:=time-1;
delay(1);
end;
if keypressed then ch:=readkey()
else ch:=0;
2015年08月02日 02点08分
4
while (time>0) and (not keypressed) do
begin
time:=time-1;
delay(1);
end;
if keypressed then ch:=readkey()
else ch:=0;
谢谢！！
2015年08月02日 12点08分