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