LIFE 2008-08-24 02:10:00
点我顶贴
收藏
删除
program life;
var
i,j,x,m,n,k,a0,a,y,wei:longint;
int:array[1..1000] of integer;
out:array[1..101] of longint;
st:string;
begin
readln (x,n);
readln (a0);
int[1]:=1;
out[1]:=a0;
wei:=1;
for i:=1 to n do
begin
readln (m);
for y:=1 to wei do
int[y]:=int[y]*x;
for y:=1 to wei do
begin
int[y+1]:=int[y+1]+int[y] div 10;
int[y]:=int[y] mod 10;
end;
if int[wei+1]>0 then inc (wei);
while int[wei]>=10 do
begin
int[wei+1]:=int[wei+1]+int[wei] div 10;
int[wei]:=int[wei] mod 10;
inc (wei);
end;
for j:=1 to 100 do
begin
out[j+1]:=out[j+1]+(int[j]*m+out[j]) div 10;
out[j]:=(int[j]*m+out[j]) mod 10;
end;
{ if out[101]>0 then break;}
end;
for i:=100 downto 1 do
write (out[i]);
end.