Задание
Определите выводимые на печать значения, вычисляемые ниже приведенной программой, при передаче в рекурсивную функцию значений равных соответственно 3 и 6:
var x: integer;
var x: integer;
function fact \(a: integer\): integer;
begin
if \(a\\lt =1\) then a:=1
else a:=a*\(fact\(a\-1\));
fact:=a;
end;
begin
write\('Введите натуральное число \- '\);
readln\(x\);
writeln('Резутат - ',fact\(x\));
end.
- 6
- 720
- 24
- 120