比赛 |
防止颓废的小练习v0.15 |
评测结果 |
AAAAAAAAAA |
题目名称 |
计算系数 |
最终得分 |
100 |
用户昵称 |
ConanQZ |
运行时间 |
0.127 s |
代码语言 |
Pascal |
内存使用 |
9.41 MiB |
提交时间 |
2016-10-17 21:12:57 |
显示代码纯文本
program P1925;
const mm=10007;
var
w:array[0..1100,0..1100]of int64;
i,j:longint;
ans,a,b,n,m,k:int64;
function q(a,k:longint):int64;
var
ans,r,i:longint;
begin
ans:=1;
for i:=1 to k do
ans:=((ans mod mm)*(a mod mm))mod mm;
exit(ans);
end;
begin
assign(input,'factor.in'); reset(input);
assign(output,'factor.out'); rewrite(output);
readln(a,b,k,n,m);
w[0,1]:=1;
for i:=1 to k do
for j:=1 to i+1 do
w[i,j]:=(w[i-1,j] mod mm+w[i-1,j-1] mod mm)mod mm;
ans:=((w[k,m+1] mod mm)*(q(a,n) mod mm))mod mm*(q(b,m) mod mm);
writeln(ans mod mm);
end.