记录编号 39404 评测结果 AAAAAAAAAA
题目名称 [HNOI 1999] 快餐问题 最终得分 100
用户昵称 GravatarSnowDancer 是否通过 通过
代码语言 Pascal 运行时间 0.147 s
提交时间 2012-07-10 12:52:19 内存使用 0.17 MiB
显示代码纯文本
program meal;
var
  tot,ans,n,i,j,k,A,B,C,p1,p2,p3,best:longint;
begin
  assign(input,'meal.in');  reset(input);
  assign(output,'meal.out');rewrite(output);
  readln(A,B,C,p1,p2,p3,n);
  tot:=0; best:=0;
  for i:=1 to n do begin
    read(k);inc(tot,k);
  end;
  for i:=1 to 100 do
    for j:=1 to 100 do
      for k:=1 to 100 do
        if i*p1+j*p2+k*p3<=tot then begin
          ans:=maxlongint;
          if ans>i div A then ans:=i div A;
          if ans>j div B then ans:=j div B;
          if ans>k div C then ans:=k div C;
          if ans>best then best:=ans;
        end;
  writeln(best);
  close(input); close(output);
end.