traitement sur les entiers

Aller en bas

traitement sur les entiers

Message  Admin le Dim 1 Mai - 17:25

ÉNONCÉ
Ecrivez un programme qui lit N nombres entiers au clavier et qui affiche leur somme, leur produit et leur moyenne. Le nombre N est à entrer au clavier.

PASCAL

program spm;
uses wincrt;
var
s,p,i,n,nb:integer;
moy:real;
begin
repeat
writeln('saisir n'); read(n);
until (n>0);
s:=0; P:=1;
for i:=1 to n do
begin
writeln('saisir le nombre n°',i); readln(nb);
s:=s+nb;
p:=p*nb;
end;
moy :=s/n ;
writeln('la somme est=',s);
writeln('le produit est =',P);
writeln('la moyenne est =',moy);
end.

Admin
Admin

Messages : 137
Date d'inscription : 29/12/2010

Voir le profil de l'utilisateur http://aidescolaire.yoo7.com

Revenir en haut Aller en bas

Revenir en haut


 
Permission de ce forum:
Vous ne pouvez pas répondre aux sujets dans ce forum