2001/02 – Fase scolastica – 06

di

Considerate il seguente frammento di programma Pascal:

Type
   s = Set Of 1..5;
Var
   x   : Array [1..5,1..5] Of Integer;
   i, j: Integer;
   z   : s;
Begin
   For i:=1 To 5 Do
      For j:=5 DownTo 1 Do
          x[i, j] := sqr(i*j);
   z:=[2,4];
   For i:=5 DownTo 1 Do
      For j:=1 To 5 Do
         If(Round(Sqr(x[i, j])) In z) Then
            Writeln('(', i, ', ', j, ')');
End.

Quali valori vengono stampati?

  1. sono stampati nell’ordine: (1, 4) (1, 2) (2, 2) (2, 1) (4, 1)
  2. sono stampati nell’ordine: (2, 3) (3, 2) (2, 2) (4, 1) (1, 4) (4, 4)
  3. sono stampati nell’ordine: (4, 1) (2, 1) (2, 2) (1, 2) (1, 4)
  4. sono stampati nell’ordine: (1, 5) (1, 1) (5, 1)
  5. nessuno delle precedenti risposte è corretta.