记录编号	7827	评测结果	AAAAAAAAAA
题目名称	美酒节赛羊	最终得分	100
用户昵称	WaterFire	是否通过	通过
代码语言	Pascal	运行时间	1.971 s
提交时间	2008-11-11 20:47:24	内存使用	0.11 MiB

program goat;
const fin='goat.in';fout='goat.out';
var f:array[0..1,-20..100]of longint;
    f1,f2:text;
    s,now,n,p,i,j,k,x,max,nono:longint;
procedure print;
begin
  writeln(f2,x);
  close(f1);
  close(f2);
  halt;
end;
begin
  assign(f1,fin);reset(f1);
  assign(f2,fout);rewrite(f2);
  read(f1,s,p);
  fillchar(f,sizeof(f),0);
  x:=0;
  now:=0;
  dec(p);
  repeat
    inc(x);nono:=1-now;
    for j:=0 to p do
      begin f[now,j]:=-maxlongint;
          if (j+1<=p) then
            if (f[nono,j+1]+1>f[now,j]) then f[now,j]:=f[nono,j+1]+1;
            if (j-2>=0)and(f[nono,j-2]+5>f[now,j]) then
                f[now,j]:=f[nono,j-2]+5;
            if (j-5>=0)and(f[nono,j-5]+10>f[now,j]) then
                f[now,j]:=f[nono,j-5]+10;
            if (j=0)and(f[nono,0]+1>f[now,j]) then f[now,j]:=f[nono,0]+1;
    if (f[now,j]>=s) then print;
    end;
    now:=nono;
  until 1<0;
  close(f1);
  close(f2);
end.