题目描述
给定一个多项式(by+ax)^k，请求出多项式展开后x^n*y^m 项的系数。
输入输出格式
输入格式：
输入文件名为factor.in。
共一行，包含5 个整数，分别为 a ，b ，k ，n ，m，每两个整数之间用一个空格隔开。
输出格式：
输出共1 行，包含一个整数，表示所求的系数，这个系数可能很大，输出对10007 取模后的结果。
输入输出样例
输入样例#1：
1 1 3 1 2
输出样例#1：
3
说明
【数据范围】
对于30% 的数据，有 0 ≤k ≤10 ；
对于50% 的数据，有 a = 1，b = 1；
对于100%的数据，有 0 ≤k ≤1,000，0≤n, m ≤k ，且n + m = k ，0 ≤a ，b ≤1,000,000。
noip2011提高组day2第1题
- 数论，广义二项式定理
var
a,b,k,n,m,i,j :longint;
f :array[..,..] of longint; function power(a,b:longint):int64;
var
t,s :int64;
begin
t:=;
s:=a;
while b> do
begin
if b mod = then t:=(t*s) mod ;
s:=(s*s) mod ;
b:=b div ;
end;
exit(t);
end; begin
read(a,b,k,n,m);
for j:= to k+ do
for i:= to j do
begin
if i=j then f[i,j]:= else
f[i,j]:=(f[i,j-]+f[i-,j-]) mod ;
end;
writeln(((power(a,n) mod )*((power(b,m) mod ))*(f[m+,k+])) mod );
end.