{ File: lung2.pas } { Scopo: uso di cicli indefiniti (cicli repeat) } program CalcolaLunghezza2; { Legge da tastiera una sequenza di interi, terminata da 0. Calcola la lunghezza della sequenza (senza lo 0) e la stampa. Versione che usa il l'istruzione repeat. } var lunghezza : integer; { lunghezza della sequenza } dato : integer; { dato letto di volta in volta } begin writeln('Inserisci una sequenza di interi, terminata da 0'); lunghezza := 0; { all'inizio la lunghezza e' nulla } repeat read(dato); lunghezza := lunghezza + 1; until dato = 0; writeln('La sequenza (senza lo 0 finale) e'' lunga ', lunghezza-1) end. { CalcolaLunghezza2 }