ac1049.pas

同济大学 Online在线题库 AC源代码合集 程序设计竞赛必看资料

program tju1049;
const
  maxn=10;
  maxw=4000;
var
  m,x:array[1..maxn]of byte;
  w:array[0..maxw]of word;
  t,u,n,i,j,k,l,ans:word;
begin
  read(t);
  for u:=1 to t do begin
    read(n);
    for i:=1 to n do read(m[i]);
    for i:=1 to n do read(x[i]);

    w[0]:=u;ans:=1;
    for i:=1 to n do
      for j:=maxw-m[i] downto 0 do
        if w[j]=u then begin
          l:=j;
          for k:=1 to x[i] do begin
            inc(l,m[i]);
            if (l>maxw) or (w[l]=u) then break;
            w[l]:=u;inc(ans);
          end;
        end;
    writeln(ans);
  end;
end.