Переведите этот код паскаля на
i, N: integer;
factorial, S: real;
begin
write('N = ');
readln(N);
factorial := 1; { <== Начальное значение факториала (0! = 1) }
S := 0; { <== Начальное значение суммы факториалов } { Чтобы вычислить сумму факториалов 1! + ... + i!, надо к сумме 1! + ... + (i - 1)! добавить i!, и всё это для i от 2 до N: }
for i := 1 to N do
begin
factorial := factorial * i; { <== Находим i! }
S := S + factorial { <== Сумму увеличиваем на i! }
end;
writeln;
writeln(' 1! + ... + ', N, '! = ', S);
readln
end.