2 条评论
-
wzhyhm LV 8 @ 2012-10-27 10:38:49
只剩下第八个点了…………
var
x,j,m,s,t:longint;
begin
readln(m,s,t); x:=t; j:=s;
while t>0 do
begin
t:=t-1;
if m>=10 then
begin s:=s-60;m:=m-10; end
else
if ((s -
@ 2012-10-27 10:18:13
5.8未过……
var
x,j,m,s,t:longint;
f:boolean;
begin
readln(m,s,t); x:=t; j:=s; f:=true;
while t>0 do
begin
t:=t-1;
if m>=10 then
begin s:=s-60;m:=m-10;f:=false; end
else
if ((s
- 1
