记录编号	7763	评测结果	AAAAAAAATT
题目名称	美酒节赛羊	最终得分	80
用户昵称	辨机ZN	是否通过	未通过
代码语言	Pascal	运行时间	2.853 s
提交时间	2008-11-11 16:44:12	内存使用	0.11 MiB

program ex(f1,f2);
 type
  zn=array [0..1,-6..108] of longint;
 var
  s,p,m,t,n,k,l,i,j,ss,ans:longint;
  f1,f2:text; f:zn; flag:boolean;
 begin
  assign(f1,'goat.in'); reset(f1);
  assign(f2,'goat.out'); rewrite(f2);
  readln(f1,ss,p);
  f[0,0]:=1; f[0,2]:=5; f[0,10]:=10;
  t:=1; flag:=true;
  while flag do
   begin
    inc(t);
     f[(t and 1),0]:=f[((t+1)and 1),0]+1;
     if f[(t and 1),0]>=ss then begin writeln(f2,t-1); close(f1); close(f2); halt; end;
    for j:=0 to p do
     begin
      k:=0;
      if (f[((t+1)and 1),j+1]+1>k)and(j+1<p) then k:=f[((t+1)and 1),j+1]+1;
      if (f[((t+1)and 1),j-2]+5>k)and(j-2>0) then k:=f[((t+1)and 1),j-2]+5;
      if (f[((t+1)and 1),j-5]+10>k)and(j-5>0) then k:=f[((t+1)and 1),j-5]+10;
      f[(t and 1),j]:=k;
      if k>=ss then begin writeln(f2,t-1); close(f1);close(f2); halt; end;
     end;
   end;
  end.