Напишите программу вычисления выражения: s = 1! + 2! + 3! + … + n!

Напишите программу вычисления выражения: 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.

Опубликовано: 14.01.2019 Обновлено: 14.01.2019
Поделись с друзьями

Добавить комментарий

Ваш e-mail не будет опубликован. Обязательные поля помечены *

пять × три =