讨论 / 大牛看看我的程序!
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.

查看更多回复
提交回复