{ File: lung1.pas } { Scopo: uso di cicli indefiniti (cicli while) } program CalcolaLunghezza; { Legge da tastiera una sequenza di interi, terminata da 0. Calcola la lunghezza della sequenza (senza lo 0) e la stampa. Versione che usa l'istruzione while. } 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 } read(dato); { lettura del primo dato } while dato <> 0 do begin lunghezza:= lunghezza + 1; read(dato) end; writeln('La sequenza (senza lo 0 finale) e'' lunga ', lunghezza) end. { CalcolaLunghezza }