Function F(n: integer): integer; function G(n: integer): integer; определены с помощью операционной семантики равенствами: F(0)=1, G(0)=2, F(n)=G(n-1), G(n)=F(n-1) + G(n-1). Найти значения F(3) и G(3).

Function F(n: integer): integer; function G(n: integer): integer; определены с помощью операционной семантики равенствами: F(0)=1, G(0)=2, F(n)=G(n-1), G(n)=F(n-1) + G(n-1). Найти значения F(3) и G(3).
Гость
Ответ(ы) на вопрос:
Гость
program Project1; function G(n: Integer): Integer; begin   if n = 0 then     Result:=2   else     Result:=F(n - 1) + G(n - 1); end; function F(n: Integer): Integer; begin   if n = 0 then     Result:=1   else     Result:=G(n - 1); end; begin   WriteLn('G(3) = ', G(3);   WriteLn('F(3) = ', F(3); end.
Не нашли ответ?
Ответить на вопрос
Похожие вопросы