var a, R : integer;

Function F (x : integer) : integer;

begin

if x< = 0 then F:=0

else F:=x + F (x-2) ;

end;

begin

a:=8;

R:=F (a) ;

write (R) ;

end.

В паскале ответ 20, как он получается? объясните поподробнее

Какое число будет напечатано в результате выполнения программы: var i, k: integer; function f (x: integer) : integer; var m: integer; begin if x < 10 then f : = x else begin m : = f (x div 10) ; if m < x mod 10 then f : = x mod 10 else f : = m; end;

Как это решить? function F (n: integer) : integer; begin if n > 1 then F : = F (n - 1) + G (n - 1) else F : = n + 1; end; function G (n: integer) : integer; begin if n > 1 then G : = G (n - 1) + F (n) else G : = n - 1; end;

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

Записаны 2 рекурсивные функции, F и G. function F (n:integer) : integer; begin if n>2 then F:=F (n-1) + G (n-2) else F:=n; end; function G (n:integer) : integer; begin if n>2 then G:=G (n-1) + F (n-2) else G:=n+1; end;

Ниже записаны две рекурсивные функции, F и G: function F (n: integer) : integer; begin if n > 2 then F : = F (n - 1) + G (n - 2) else F : = 1; end; function G (n: integer) : integer; begin if n > 2 then G : = G (n - 1) + F (n - 2) else G : = 1; end;