Получить последовательность dk, d(k-1), ..d0 десятичных цифр числа 100!, ,т. е. такую целочисленную последовательность, в которой каждый член di удовлетворяет условию 0≤di≤9 и, дополнительно,
dk∙10^k+ d(k-1)∙10^(k-1)+…+ d0=100!
есть код подобной задачи: Получить последовательность dk, dk-1, d0 десятичных цифр числа 2200, т. е. такую целочисленную последовательность, в которой каждый член di удовлетворяет условию 0£di£9 и, дополнительно, dk*10k+dk-1*10k-1+...+d0=2200.
код: program Z_581;
uses crt;
var
B:array[1..100]of byte;
i,j,Max:byte;
begin
for i:=1 to 100 do
B[i]:=0;
B[1]:=1;
for i:=1 to 200 do
begin
Max:=100;
while B[Max]=0 do
dec(Max);
for j:=1 to Max do
B[j]:=B[j]*2;
for j:=1 to Max do
if B[j]>9 then
begin
B[j+1]:=B[j+1]+B[j]div 10;
B[j]:=B[j] mod 10;
end;
end;
clrscr;
write('2^200=');
for j:=Max+1 downto 1 do
write(B[j]);
readln;
end.
Помогите реализовать на JavaScript(вариант задачи с факториалом)
