Question

Помогите не понимаю. Очень срочно!!!

Answer 1

Ответ:

Программа демонстрирует вычисление факториала методом рекурсивного вызова функции.

program f;                  

(название программы)

  var n:integer;          

( декларирование целой переменной n)

function fr(n:integer)

( декларирование функции fr с одним целым параметром)

begin                          

(начало функции тела функции fr)

   if n=1 then fr:=1        

(если параметр равен 1, функция возвращает 1)

            else fr:=fr(n-1)*n;  

(иначе, рекурсивно вычисляет факториал)

end;                                  

(конец тела функции)

begin                                

(начало тела программы)

write('Enter a number: ');  

(вывод на экран строки "введите число")

readln(n);                          

(перевод строки, ожидание ввода, присвоение n введенного                числа)

res:=fr(n);                          

(вызов функции fr и присвоение ее значения переменной res)

writeln('Answer: ', res);

(выводим на экран результат)

read;

(ждем нажатия любой клавиши)

end.

(конец тела программы)