Вычислить сумму 1! + 2! + 3! + ... + n! (значение n вводится с клавиатуры; 1 < n ≤ 10).Решать через While или Repeat
Вычислить сумму 1! + 2! + 3! + ... + n! (значение n вводится с клавиатуры; 1 < n ≤ 10).Решать через While или Repeat
Не можешь разобраться в этой теме?
Обратись за помощью к экспертам
Гарантированные бесплатные доработки в течение 1 года
Быстрое выполнение от 2 часов
Проверка работы на плагиат
Поможем написать учебную работу
Program factorial_sum;
var
n, i, fact, sum: integer;
begin
sum := 0;
write('Введите значение n: ');
readln(n);
if (n <= 1) or (n > 10) then
writeln('Сумма факториалов: ', sum);writeln('Некорректное значение n')
else
begin
i := 1;
repeat
fact := 1;
for i:=1 to i do
fact := fact * i;
sum := sum + fact;
i := i + 1;
until i > n;
end;
end.