È dato il seguente programma:
Program E11(input, output); Function g(x: Integer): Integer; forward; Function f(x: Integer): Integer; Begin If(x <= 0) Then f:=0 Else If(x mod 2)=0 Then f:= g(x Div 2) Else f:= g((x Div 2)+1) End; Function g(x: Integer): Integer; Begin If(x <= 0) Then g:=0 Else g:=1+f(x-2) End; Begin Write(f(100)) End.
Cosa viene visualizzato a video dall’esecuzione del programma?