2010/11 – Fase scolastica – 18

Si consideri il seguente frammento di programma:

Const
   D=10;
Var
   i: Integer;
   M: Array [0..D-1] Of Integer;
Begin
   For i:=0 To D-1 Do
      M[i]:=9*i;
   Write('Sequenza=');
   For i:=0 To D-1 Do
      If(M[i] Mod (i+1) = 0) Then
         Write(' ', M[i] Div (i+1))
      Else
         Write(' ', M[i] Mod (i+1));
End.

Cosa viene visualizzato a video dall’esecuzione del programma principale?