Задание

Определите выводимые на печать значения, вычисляемые ниже приведенной программой, при передаче в рекурсивную функцию значений равных соответственно 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