Question

Рекурсивные алгоритмы, помогите, все подробно расписать надо

Answer 1

function G(n: integer): integer; forward;

function F(n: integer): integer;

begin

 if n = 1 then result := 1

 else result := F(n - 1) - G(n - 1)

end;

function G(n: integer): integer;

begin

 if n = 1 then result := 1

 else result := F(n - 1) + 2 * G(n - 1)

end;

begin

 Println(F(5)/G(5));//-2

end.