回帖：copy code
Program jiecheng;
var n,k,i,j,v,temp:integer;
a,b:array[1..100] of integer;
begin
assign(output,'jiecheng.out');
rewrite(output);
read(n);
for i:=1 to n do begin
a[1]:=1;
for j:=1 to i do begin
for v:=1 to 100 do a:=a*j;
temp:=a[1] div 10;
a[1]:=a[1] mod 10;
k:=1;
while k