È dato il seguente programma:
Program E12(Input, Output);
Var
T: Array[0..7] Of Integer;
Procedure f(i, dim: Integer);
Begin
If(i < dim) Then
Begin
f(2*i+1, dim);
Write(T[i]);
f(2*i+2, dim)
End;
End;
Begin
T[0]:=1;
T[1]:=2;
T[2]:=3;
T[3]:=4;
T[4]:=5;
T[5]:=6;
T[6]:=7;
T[7]:=8;
Write('ris = ');
f(0, 8)
End.
Cosa viene visualizzato a video dall’esecuzione del programma?