比赛 防止颓废的小练习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.