Question

СРОЧНО !!! Нужно вычислить рекурсивно Паскаль​

Answer 1

Ответ:

getfact - считает факториал числа (a)

getst - считает число (y) в степени (a)

var

 x, y:integer;

 function getfact(a:integer):integer;

 begin

   if a>1 then result:=a*getfact(a-1)

   else result:=1;

 end;

 function getst(a:integer):integer;

 begin

   if a>1 then result:=y*getst(a-1)

   else result:=y;

 end;

begin

 readln(x);

 readln(y);

 writeln(getst(x)/getfact(x))  

end.