测试结果1: 通过本测试点|有效耗时187ms

测试结果2: 通过本测试点|有效耗时94ms

测试结果3: 通过本测试点|有效耗时172ms

测试结果4: 测试结果错误.错误结果为:5781615

正确结果应为:153358921

测试结果5: 测试结果错误.错误结果为:5781615

正确结果应为:435250260

测试结果6: 测试结果错误.错误结果为:5781615

正确结果应为:435841398

测试结果7: 通过本测试点|有效耗时172ms

测试结果8: 测试结果错误.错误结果为:235793426

正确结果应为:1111101000

测试结果9: 选手程序运行超过时限

测试结果10: 测试结果错误.错误结果为:235793426

正确结果应为:5136

提交代码： view sourceprint?

01.var a:array[1..1000]of longint;

02.n,m,i,j,k:longint;

03.begin

04.readln(n,m);

05.k:=1;a[1]:=1; i:=i+1;

06.while i<m do begin

07.k:=k*n;a[1+i]:=k;

08.for j:=1 to i do

09.a[j+i+1]:=a[j]+k;

10.i:=i+i+1;

11.end;

12.writeln(a[m]);

13.end.