Materie: | Appunti |
Categoria: | Informatica |
Voto: | 1 (2) |
Download: | 49 |
Data: | 22.03.2001 |
Numero di pagine: | 1 |
Formato di file: | .doc (Microsoft Word) |
Testo
Program elenco;
uses wincrt;
Var
N:string [20];
E,NP,conta:integer;
Begin
conta:=0;
Writeln ('Dammi il numero delle persone');
Readln(NP);
while NP>0 do
begin
Writeln ('Dammi il nome');
Readln(N);
Writeln('Dammi l eta');
Readln(E);
if e>18
then
conta:=conta+1;
NP:=NP-1;
end;
Write('Il numero dei maggiorenni e'' ',conta);
Readln;
END.