虽然离开 2011-10-07 23:43:00
点我顶贴
收藏
删除
program escape;
var m,s,t,i,tn,sn:longint;
procedure shan;
begin
tn:=tn+1;
sn:=sn+60;
m:=m-10;
end;
procedure jm;
begin
tn:=tn+1;
m:=m+4;
end;
procedure run;
begin
sn:=sn+17;
tn:=tn+1;
end;
begin
read(m,s,t);
tn:=0;
sn:=0;
for i:=1 to t do
begin
if m>=10 then shan
else
if ((m>=2)and(t-tn>=3))or((m>=6)and(t-tn>=2)) or(t-tn>=7)then jm
else run;
if (sn>=s)and(tn<=t) then
begin
writeln('Yes');
write(tn);
exit
end;
end;
if (s-sn>0) then
begin
writeln('No');
write(sn);
end;
end.
为什么是80?????