È dato il seguente frammento di programma:
Procedure ricorsiva(n: Integer); Var m: Integer; Begin m:=n Div 2; If(m <> 0) Then ricorsiva(m); Write(n Mod 2) End; Begin ricorsiva(729) End.
Cosa viene visualizzato a video dall’esecuzione del programma?
Sezione di VALCON.IT
È dato il seguente frammento di programma:
Procedure ricorsiva(n: Integer); Var m: Integer; Begin m:=n Div 2; If(m <> 0) Then ricorsiva(m); Write(n Mod 2) End; Begin ricorsiva(729) End.
Cosa viene visualizzato a video dall’esecuzione del programma?