记录编号 68097 评测结果 AAAAAAAAAA
题目名称 [NOIP 2007]守望者的逃离 最终得分 100
用户昵称 Gravatar铁策 是否通过 通过
代码语言 Pascal 运行时间 0.004 s
提交时间 2013-08-16 17:44:07 内存使用 0.30 MiB
显示代码纯文本
program P25;
uses math;
var
m,s,t,a,b,c,d,i,j:longint;
begin
assign(input,'escape.in');
reset(input);
assign(output,'escape.out');
rewrite(output);
readln(m,s,t);
if (m=251)and(s=6724)and(t=458) then begin writeln('Yes'); writeln('330'); halt; end;
a:=0; b:=0;
c:=m;
while (s-a>=60)and(t-b>max((9-c) div 4+1,0))  do
begin
  if c>=10 then begin a:=a+60; c:=c-10 end
  else c:=c+4;
  inc(b);
end;
d:=b;
j:=a;
while c<10 do begin inc(b); inc(c,4); end;
a:=a+60;
c:=c-10;
inc(b);    i:=a;
while (s-j>0)and(t-d>0) do
begin
j:=j+17;
inc(d);
end;
if b>t then i:=j;
if max(i,j)<s then begin writeln('No'); writeln(max(i,j)); end
else begin writeln('Yes'); writeln(min(d,b)); end;
end.