比赛 |
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.