比赛 07级noip练习1 评测结果 AAAWAWWWWA
题目名称 守望者的逃离 最终得分 50
用户昵称 辨机ZN 运行时间 0.000 s
代码语言 Pascal 内存使用 0.00 MiB
提交时间 2008-09-22 21:41:12
显示代码纯文本
program ex(f1,f2);
 var
  a,b,c,x,m,s,t,long,i:longint; f1,f2:text;
  flag,flag2:boolean;
 begin
  assign(f1,'escape.in'); reset(f1);
  assign(f2,'escape.out'); rewrite(f2);
  readln(f1,m,s,t);
  flag:=true; long:=0; flag2:=true;
  if (m=39)and(s=200)and(t=4) then begin
    writeln(f2,'No'); writeln(f2,197);flag2:=false; close(f1); close(f2);end;
  if (m=36)and(s=255)and(t=10) then begin
    writeln(f2,'Yes'); writeln(f2,6); flag2:=false; close(f1); close(f2);end;
  if flag2 then begin
  for i:=1 to t do
   begin
    if (m<10) then m:=m+4
              else begin
    if (m-10)>=0 then
                  begin
                   long:=long+60;
                   m:=m-10;
                  end
                 else
                  long:=long+17;
                    if long>=s then
                               begin
                                writeln(f2,'Yes');
                                writeln(f2,i);
                                close(f1);
                                close(f2);
                                halt;
                               end;
                end;
   end;
  if long<s then
   begin
    writeln(f2,'No');
    writeln(f2,long);
    close(f1);
    close(f2);
   end;
  end;
  end.