2013/14 – Fase scolastica – 11

16/10/2014 di admin

È 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
      F:=1+G(x-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 ?