Money Systems(money.pas/c/cpp)

Money Systems
(money.pas/c/cpp)
来源：USACO 2.3
【问题描述】

母牛们不但创建了他们自己的政府而且选择了建立了自己的货币系统。[In their own rebellious way],，他们对货币的数值感到好奇。

传统地，一个货币系统是由1,5,10,20 或 25,50, 和 100的单位面值组成的。

母牛想知道有多少种不同的方法来用货币系统中的货币来构造一个确定的数值。

举例来说, 使用一个货币系统 {1,2,5,10,...}产生 18单位面值的一些可能的方法是:18x1, 9x2, 8x2+2x1, 3x5+2+1,等等其它。写一个程序来计算有多少种方法用给定的货币系统来构造一定数量的面值。保证总数将会适合long long (C/C++) 和 Int64 (Free Pascal)。

【输入文件】

货币系统中货币的种类数目是 V (1<= V<=25)。要构造的数量钱是 N (1<= N<=10,000)。

第 1 行: 二整数， V 和 N

第 2 行： 可用的货币 V 个整数。

【输出文件】

单独的一行包含那个可能的构造的方案数。

【输入样例】

3 10

1 2 5

【输出样例】

10

======================

=================

{
ID:jie19952
PROG:money
LANG:PASCAL
}
var
v,n:longint;
a:array[1..25]of longint;
f:array[0..10000]of int64;
procedure init;
begin
assign(input,'money.in');
assign(output,'money.out');
reset(input); rewrite(output);
end;

procedure terminate;
begin
close(input); close(output);
halt;
end;

procedure main;
var
i,j:longint;
begin
readln(v,n);
for i:=1 to v do
begin
read(a[i]);
end;
for i:=0 to n do
f[i]:=0;
f[0]:=1;
for i:=1 to v do
for j:=0 to n-a[i] do
begin
f[j+a[i]]:=f[j]+f[j+a[i]];
end;
writeln(f
);
end;

begin
init;
main;
terminate;
end.