比赛 |
NOIP2008集训模拟2 |
评测结果 |
C |
题目名称 |
美酒节赛羊 |
最终得分 |
0 |
用户昵称 |
王瑞祥K |
运行时间 |
0.000 s |
代码语言 |
Pascal |
内存使用 |
0.00 MiB |
提交时间 |
2008-11-11 11:15:00 |
显示代码纯文本
program goat(input,output);
var
f:array[1..3,1..2] of integer;
s,p:longint;
min:int64;
i,j:integer;
procedure dg(time,long,pl:longint);
var i0:longint;
begin
if long>=s then begin if time<min then min:=time; end;
if long<s then begin
if pl>=p then dg(time+10,long+10,pl-10)
else begin
for i0:=1 to 3 do begin
if (pl+f[i0,2]<=p)and(pl+f[i0,2]>=0) then
dg(time+1,long+f[i0,1],pl+f[i0,2]);
end;
end;
end;
end;
begin
min:=maxint;
f[1,1]:=1; f[1,2]:=-1;
f[2,1]:=5; f[2,2]:=2;
f[3,1]:=10; f[3,2]:=5;
assign(f1,'goat.in');
reset(f1);
readln(f1,s,p);
close(f1);
dg(0,0,0);
assign(f2,'goat.out');
rewrite(f2);
writeln(f2,min);
close(f2);
end.