记录编号 14165 评测结果 AAAAAAAAAA
题目名称 [NOIP 2007]守望者的逃离 最终得分 100
用户昵称 GravatarEnAsn 是否通过 通过
代码语言 Pascal 运行时间 0.012 s
提交时间 2009-10-27 16:07:56 内存使用 3.55 MiB
显示代码纯文本
program ex;
type
 ss=array[0..300000,1..2]of longint;
 sz=array[0..300000]of longint;
var
 ans:ss;
 max:sz;
 m,s,t:longint;
procedure init;
 var
  i,j:longint;
  mana,tt:longint;
 begin
  assign(input,'escape.in');
  assign(output,'escape.out');
  reset(input);
  rewrite(output);
  readln(m,s,t);
  close(input);
  ans[0,1]:=m;
  ans[0,2]:=0;
  for  i:=1 to t do
   begin
    if ans[i-1,1]>=10 then
     begin
      ans[i,1]:=ans[i-1,1]-10;
      ans[i,2]:=ans[i-1,2]+60;
     end
     else begin
           ans[i,1]:=ans[i-1,1]+4;
           ans[i,2]:=ans[i-1,2];
          end;
    if max[i-1]+17>ans[i,2]
     then max[i]:=max[i-1]+17
     else max[i]:=ans[i,2];
    if max[i]>=s then
     begin
      writeln('Yes');
      writeln(i);
      close(output);
      halt;
     end;
   end;
 writeln('No');
 writeln(max[t]);
 close(output);
 end;
begin
 init;
end.