Jollwish 2008-08-05 07:17:00
点我顶贴
收藏
删除
测试数据！
-------------------------------------
测试结果1: 通过本测试点|有效耗时188:ms
测试结果2: 通过本测试点|有效耗时63:ms
测试结果3: 测试结果错误.错误结果为:12481
正确结果应为:52605
测试结果4: 测试结果错误.错误结果为:51676
正确结果应为:18300
测试结果5: 测试结果错误.错误结果为:54103
正确结果应为:16109
测试结果6: 通过本测试点|有效耗时63:ms
测试结果7: 测试结果错误.错误结果为:24802
正确结果应为:10055
提交代码：
var a,b,i,j,s,t:longint；
begin
readln(a,b)；
t:=0；
for i:=1 to 54321 do
begin
s:=1；
for j:=1 to b do
s:=(s*i) mod 54321；
t:=(t+s) mod 54321；
end；
t:=(t*(a div 54321)) mod 54321；
for i:=1 to a mod 54321 do
begin
s:=1；
for j:=1 to b do
s:=(s*i) mod 54321；
t:=(t+s) mod 54321；
end；
write(t)；
end.