Дано целое число N (N > 0). Используя один цикл, найти сумму - Pascal ABC
Формулировка задачи:
Дано целое число N (N > 0). Используя один цикл, найти сумму 1!+2!+3!+...+N!
Решение задачи: «Дано целое число N (N > 0). Используя один цикл, найти сумму»
textual
Листинг программы
Program sumfact;
var i,n,s,s1,f : integer;
begin
writeln('Введите число: ');
readln(n);
s:=0;
s1:=1;
f:=1;
for i:=1 to N do
begin
s1:=s1*f;
f:=f+1;
s:=s+s1;
end;
writeln('Сумма факториалов = ',s);
end.
Объяснение кода листинга программы
Список действий в коде:
- Запросить у пользователя ввод целого числа N.
- Инициализировать переменные: s = 0, s1 = 1, f = 1.
- Запустить цикл for от 1 до N.
- Внутри цикла умножать s1 на f и присваивать результат переменной s1.
- Увеличивать значение f на 1.
- Присваивать сумму s1 переменной s.
- Выполнить вывод на экран суммы факториалов.
ИИ поможет Вам:
- решить любую задачу по программированию
- объяснить код
- расставить комментарии в коде
- и т.д