Написать программу вычисления факториала с использованием рекурсивной подпрограммы - Pascal

Формулировка задачи:

3. Написать программу вычисления факториала с использованием рекурсивной подпрограммы.

Решение задачи: «Написать программу вычисления факториала с использованием рекурсивной подпрограммы»

Листинг программы

function fact(n:integer):real;
begin
if n<2 then fact:=1
else fact:=fact(n-1)*n;
end;
var n:integer;
begin
write('Введите n>=0 n=');
readln(n);
write(n,'!=',fact(n))
end.

Объяснение кода листинга программы

Объявляется функция fact с параметром n, который имеет тип данных integer и возвращает значение типа real.
В теле функции fact происходит следующее:
- Проверяется условие: если n меньше 2, то значение функции устанавливается равным 1.
- Иначе значение функции устанавливается как результат умножения fact(n-1) на n.
Объявляется переменная n типа integer.
Происходит ввод значения для переменной n с помощью функции readln.
Выводится сообщение n!= и вызывается функция fact с аргументом n. Результат выводится на экран с помощью функции write.