讨论 / 也没超时,但在家里都ac了
lxl 2010-09-15 16: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: 运行错误|普通保护错误

#1 我是白痴@2010-09-15 16:23:00
回复 删除
数组太小

查看更多回复
提交回复