Caricare documenti e articoli online 
INFtub.com è un sito progettato per cercare i documenti in vari tipi di file e il caricamento di articoli online.


 
Non ricordi la password?  ››  Iscriviti gratis
 

Program elenco

informatica



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.






Privacy




Articolo informazione


Hits: 1548
Apprezzato: scheda appunto

Commentare questo articolo:

Non sei registrato
Devi essere registrato per commentare

ISCRIVITI



Copiare il codice

nella pagina web del tuo sito.


Copyright InfTub.com 2024