2006/07 – Fase scolastica – 05

Cosa stampa il seguente programma, con input 5?

Program cosa(Input, Output);
Var
   x   : Integer;
   y, z: Real;
Begin
   x:=0;
   y:=0;
   Read(z);
   Repeat
      x:=x+1;
      y:=y+1/x;
   Until y > z;
   Write(x) 
End.

Risposte:

1. 5
2. 12
3. 25
4. nessuna delle precedenti.