测评机： Xeost[5]

得分： 100分

提交日期： 2010-7-22 20:14:00

有效耗时： 4547毫秒

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

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

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

测试结果4: 通过本测试点|有效耗时156ms

测试结果5: 通过本测试点|有效耗时156ms

测试结果6: 通过本测试点|有效耗时797ms

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

测试结果8: 通过本测试点|有效耗时781ms

测试结果9: 通过本测试点|有效耗时781ms

测试结果10: 通过本测试点|有效耗时781ms

var a,b,jia:array[0..200]of integer;

x,n,ee,i,j,xx:longint;

begin

readln(x,n);

readln(jia[1]);

a[1]:=1;

for i:=1 to n do

begin

readln(xx);

for j:=1 to 100 do a[j]:=a[j]*x;

for j:=1 to 100 do

begin

a[j+1]:=a[j+1]+a[j]div 10;

a[j]:=a[j]mod 10;

end;

b:=a;

for j:=1 to 100 do b[j]:=b[j]*xx;

for j:=1 to 100 do

begin

b[j+1]:=b[j+1]+b[j]div 10;

b[j]:=b[j]mod 10;

end;

for j:=1 to 100 do

begin

jia[j]:=jia[j]+b[j];

jia[j+1]:=jia[j+1]+jia[j]div 10;

jia[j]:=jia[j]mod 10;

end;

end;

for i:=100 downto 1 do write(jia[i]);

end.

只要算其中100位就可以了(不会万进制,只能这样)