记录编号 |
2679 |
评测结果 |
AAWWWTWWTA |
题目名称 |
[NOIP 2007]守望者的逃离 |
最终得分 |
30 |
用户昵称 |
zpl123 |
是否通过 |
未通过 |
代码语言 |
Pascal |
运行时间 |
2.015 s |
提交时间 |
2008-09-24 20:10:26 |
内存使用 |
0.19 MiB |
显示代码纯文本
program escape;
type
best=array[1..10000] of longint;
var
m,s,t,i,j,j1,k:longint;
a,b:best;
function max(a,b,c:longint):longint;
var
k:longint;
begin
if a>=b then k:=a else k:=b;
if k<c then k:=c;
max:=k;
end;
procedure init;
begin
assign(input,'escape.in');
reset(input);
assign(output,'escape.out');
rewrite(output);
readln(m,s,t);
fillchar(a,sizeof(a),0);
fillchar(b,sizeof(b),0);
end;
procedure print;
begin
writeln('Yes');
writeln(i);
close(input);
close(output);
halt;
end;
procedure step3;
begin
writeln('No');
writeln(a[m]);
close(input);
close(output);
end;
begin
init;
for i:=1 to t do
begin
for j:=0 to 9 do
begin
a[j]:=max(a[j]+17,a[j+4],0);
if a[j]>=s then
begin
writeln('Yes');
writeln(i);
close(input);
close(output);
halt;
end;
end;
for j:=10 to m do
begin
a[j]:=max(a[j]+17,a[j+4],a[j-10]+60);
if a[j]>=s then
begin
writeln('Yes');
writeln(i);
close(input);
close(output);
halt;
end;
end;
end;
step3;
end.