Function F(n: integer): integer; begin if n>1 then F:=F(n-1)+G(n-1) else F:=2*n; end; function G(n: integer): integer; begin if n>1 then G:=G(n-1)+F(n) else G:=n-2; end;

Последовательно найдем значения функций от n=1 до искомого n=5 F(1) = 2 G(1) = -1 F(2) = F(1) + G(1) = 2-1 = 1 G(2) = G(1) + F(2) = -1+1 = 0 F(3) = F(2) + G(2) = 1+0 = 1 G(3) = G(2) + F(3) = 0+1 = 1 F(4) = F(3) + G(3) = 1+1 = 2 G(4) = G(3) + F(4) = 1+2 = 3 F(5) = F(4) + G(4) = 2+3 = 5 Ответ: 5

Function F(n: integer): integer;
begin
if n>1 then
F:=F(n-1)+G(n-1)
else
F:=2*n;
end;
function G(n: integer): integer;
begin
if n>1 then
G:=G(n-1)+F(n)
else
G:=n-2;
end; (Решение → 843)