Написать программу, найти факториал 100!
len := 1; { записать [A]=1 }
A[0] := 1;
for i:=1 to 40 do
A[i] := 0;
for k:=2 to 100 do begin
i := 0;
r := 0;
while (i < len) or (r > 0) do begin
s := A[i]*k + r;
A[i] := s mod d;
r := s div d;
i := i + 1;
end;
len := i;
end;

Прммрррр    3   22.04.2020 13:28    1