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 quadrati

informatica



PROGRAM quadrati;



Uses wincrt;

Var

N:integer;

somma:integer;

conta:integer;

Q:integer;

Begin

conta:=0;

somma:=0;

Write ('Dammi il numero generico');

Readln (N);

repeat

conta:=conta+1;

Q:=sqr(conta);

somma:=somma+Q;

until conta=N;

Write ('La somma dei quadrati e'' ',somma);

Readln;

END.






Privacy




});

Articolo informazione


Hits: 1731
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