Elenco

Materie:Appunti
Categoria:Informatica

Voto:

1 (2)
Download:49
Data:22.03.2001
Numero di pagine:1
Formato di file:.doc (Microsoft Word)
Download   Anteprima
elenco_1.zip (Dimensione: 2.05 Kb)
trucheck.it_elenco.doc     19 Kb
readme.txt     59 Bytes



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.

Esempio