记录编号 2679 评测结果 AAWWWTWWTA
题目名称 [NOIP 2007]守望者的逃离 最终得分 30
用户昵称 Gravatarzpl123 是否通过 未通过
代码语言 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.