Дано целое число 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.
- Выполнить вывод на экран суммы факториалов.
ИИ поможет Вам:
- решить любую задачу по программированию
- объяснить код
- расставить комментарии в коде
- и т.д