money.pas

Magio牛的usaco源代码

{
ID:maigoak1
PROG:money
}

program money;
const
  maxv=25;
  maxn=10000;
var
  fin,fout:text;
  value:array[1..maxv]of integer;
  m:array[0..maxn]of int64;
  v,n,i,j:integer;
begin
  fillchar(m,sizeof(m),0);
  assign(fin,'money.in');
  reset(fin);
  readln(fin,v,n);
  for i:=1 to v do begin
    read(fin,value[i]);
    m[0]:=1;
  end;
  close(fin);

  for i:=1 to v do
    for j:=1 to n do
      if value[i]<=j then m[j]:=m[j]+m[j-value[i]];

  assign(fout,'money.out');
  rewrite(fout);
  writeln(fout,m[n]);
  close(fout);
end.