lxl 2010-09-15 01:23:00
点我顶贴
收藏
删除
大牛请教：
var
a:array[1..100000] of int64;
n,k:longint;
jia:int64;
i,j:longint;
begin
readln(n,k);
jia:=1;
a[1]:=1;
for i:=1 to n-1 do
begin
a[i+1]:=a[i]+jia;
jia:=jia*3;
end;
a[n]:=a[n] mod k;
writeln(a[n]);
end.
状态: Unaccepted
测评机： Xeond[6]
得分： 10分
提交日期： 2010-8-24 18:30:00
有效耗时： 47毫秒
测试结果1: 测试结果错误.错误结果为:4438
正确结果应为:5254
测试结果2: 测试结果错误.错误结果为:518
正确结果应为:9974
测试结果3: 测试结果错误.错误结果为:-3783
正确结果应为:3572
测试结果4: 通过本测试点|有效耗时47ms
测试结果5: 运行错误|普通保护错误
测试结果6: 运行错误|普通保护错误
测试结果7: 运行错误|普通保护错误
测试结果8: 运行错误|普通保护错误
测试结果9: 运行错误|普通保护错误
测试结果10: 运行错误|普通保护错误