Определите выводимые на печать значения, вычисляемые ниже приведенной программой, при передаче в рекурсивную функцию значений равных соответственно 3 и 6: var x: integer; var x: integer; function fact (a: integer): integer; begin if (a<=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
Задание

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