记录编号	2650	评测结果	AAAAAAAAAA
题目名称	[NOIP 2007]守望者的逃离	最终得分	100
用户昵称	bing	是否通过	通过
代码语言	Pascal	运行时间	0.015 s
提交时间	2008-09-24 13:24:46	内存使用	3.55 MiB

program bing;
var
 f1,f2:text;
 m,s,t,i:longint;
 a:array[0..300000] of longint;
 b:array[0..300000,1..2] of longint;
procedure init;
begin
 assign(f1,'escape.in');reset(f1);
 assign(f2,'escape.out');rewrite(f2);
 read(F1,m,s,t);
 b[0,1]:=m;
 a[0]:=0;
end;
procedure nb;
var
 i,k,j,tt:longint;
begin
 for i:=1 to  t do
 begin
  if b[i-1,1]>=10 then begin
    b[i,2]:=b[i-1,2]+60;
    b[i,1]:=b[i-1,1]-10;
    end
  else
  begin
   b[i,1]:=b[i-1,1]+4;
   b[i,2]:=b[i-1,2];
  end;
  if a[i-1]+17>b[i,2] then a[i]:=a[i-1]+17
  else a[i]:=b[i,2];
   end;
 end;
begin
 init;
 nb;
 i:=1;
 while (a[i]<s)and(i<=t) do i:=i+1;
 if i>t then begin writeln(f2,'No');write(f2,a[t]);end
 else begin writeln(f2,'Yes');write(f2,i);end;
 close(f1);close(f2);
end.