| 记录编号 |
84612 |
评测结果 |
AAAAAAAAAA |
| 题目名称 |
[NOIP 2007]守望者的逃离 |
最终得分 |
100 |
| 用户昵称 |
 FoolMike |
是否通过 |
通过 |
| 代码语言 |
Pascal |
运行时间 |
0.002 s |
| 提交时间 |
2013-12-16 22:06:24 |
内存使用 |
0.17 MiB |
显示代码纯文本
var
m,s,t,t1,t2,s1,s2:longint;
procedure v(m,s1,t1:longint);
begin
if s1>=s then begin t2:=t1;t:=t1;end else if (t1=t)then
begin if s2<s1 then s2:=s1;end
else if (s1<s)and(t1<t)then
if m>=10 then v(m-10,s1+60,t1+1) else begin
v(m+4,s1,t1+1);v(m,s1+17,t1+1);end;end;
begin
assign(input,'escape.in');assign(output,'escape.out');
reset(input);rewrite(output);
read(m,s,t);
while (t-t1>7)and(s-s1>=119) do begin t1:=t1+1;
if m>=10 then begin s1:=s1+60;m:=m-10;end
else m:=m+4;end;v(m,s1,t1);
if t2<>0 then begin writeln('Yes');
write(t2);end else begin writeln('No');write(s2);end;
close(input);close(output);end.