2014/15 – Fase scolastica – 11

È 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?