vook 2014-03-07 06:16:20
点我顶贴
收藏
删除
运行如下：
测试点1 Accepted / 5ms / 532kB
测试点2 Accepted / 5ms / 532kB
测试点3 Accepted / 5ms / 532kB
测试点4 Accepted / 6ms / 532kB
测试点5 Unaccepted / 在1行选手输出与标准输出存在差异
标准输出
选手输出
测试点6 Unaccepted / 在1行选手输出与标准输出存在差异
标准输出
选手输出
测试点7 Unaccepted / 在1行选手输出与标准输出存在差异
标准输出
选手输出
测试点8 Accepted / 8ms / 532kB
测试点9 Accepted / 9ms / 532kB
测试点10 Unaccepted / 在1行选手输出与标准输出存在差异
标准输出
选手输出
程序：
program p659;
uses math;
var u,d:array[1..1002]of longint;
a,b,k,n,m,i,j,t:longint;
begin
readln(a,b,k,n,m);u[1]:=1;d[1]:=1;d[2]:=1;
for i:=1 to k do
begin
d[i+1]:=1;
for j:=2 to i do d[j]:=(u[j]+u[j-1])mod 10007;
u:=d;
end;
t:=u[k-n+1] mod 10007;
t:=(t*trunc(power(a,n)))mod 10007;
t:=(t*trunc(power(b,m)))mod 10007;
write(t);
end.