Напишите программу вычисления выражения: s = 1! + 2! + 3! + … + n!
Здесь n1 — факториал числа n. n1 = 1 · 2 · … · (n − 1) · n. Используйте функцию вычисления факториала.
Ответ
program faktorial;
var i, n, s: integer;
function f (m: integer): integer;
begin
if m=1 then f:=1 else f:=f(m-1)*m
end;
begin
writeln (‘n = ‘);
readln (n);
s:=0;
for i:=1 to n do
s:=s+f(i);
writeln (‘s = ‘, s)
end.