2013/04 – Fase scolastica – 07

di

È dato il seguente programma:

Program E7(Input, Output);
Var
   f: Array[1..10] Of Integer;
   i: Integer;
Begin
   f[1]:=5;
   f[2]:=3;
   For i:=1 To 8 Do
      f[i+2]:=f[i+1]-f[i];
   For i:=1 To 10 Do
      Write(f[i], ', ')
End.

Cosa viene visualizzato a video dall’esecuzione del programma ?

  1. 5, 3, -2, -5, -3, 2, 5, 3, -2, -5,
  2. 5, 3, 5, 3, 5, 3, 5, 3, -2, -5,
  3. -5, -3, -2, -5, -3, 2, 5, 3, -2, -5,
  4. 5, 3, 2, 5, -3, 2, 5, 3, -2, -5,