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.