Si consideri il seguente frammento di programma:
Function B(n: Integer): Integer; Forward; Function A(n: Integer): Integer; Begin If (n = 0) Then A:=0 Else If(n Mod 2 = 0) Then A:=n+B(n) Else A:=B(n) End; Function B(n: Integer): Integer; Begin If(n = 0) then B:=0 Else If(n Mod 2 = 1) Then B:=n+A(n-1) Else B:=A(n-1) End;
Dire che cosa calcola la funzione A() assumendo che venga invocata passando un intero positivo.