Question

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, как он получается? объясните поподробнее

Answer 1

рекурсия

F = 8 + 6 + 4 + 2 = 20

когда зашли за 0 рекурсия останавливается