2010/11 – Fase scolastica – 15

di

Si consideri il seguente frammento di programma:

Var
   n, i, j, a, b: Integer;
Begin
   a:=0;
   b:=0;
   Write('Inserire un numero intero: ');
   Readln(n);
   If(n < 0) Then
      n:=-n;
   i:=n;
   j:=n;
   While(i > 0) Do
      Begin
         a:=a+1;
         i:=i-1
      End;
   Repeat
      b:=b+1;
      j:=j-1
   Until(j <= 0);
   Writeln('a=', a, ' b=', b)
End.

Cosa viene visualizzato a video dall’esecuzione di main() se alla domanda Inserisci un numero intero: viene inserito da tastiera il valore

  1. 100
  2. 0?