Histoire de 2 zero pour quitter !
2 participants
Page 1 sur 1
Histoire de 2 zero pour quitter !
- Code:
program zeroZeroPourQuitter;
var a, nz, somme, nSum, choix : integer;
begin
nSum := 0;
Somme := 0;
nZ := 0;
while (nz <> 2) do begin
Writeln('entrez un nombre');
readln(a);
if (a = 0) then begin
if (nz = 1) then nSum:= nSum-2;
nz:= nz +1;
nSum := nSum +1 end
else begin
nz := 0;
somme := somme + a;
nSum := nSum +1;
end; end;
Writeln('la somme vaut ',somme);
Writeln('la moyenne vaut ',somme/nsum);
readln
end.
ps : consigne : les deux derniers Zero ne doivent pas etre dans la moyenne !
yrejk- Admin
- Nombre de messages : 1013
Age : 35
Localisation : Wavre-LLn
Classe : 1TIM2
Date d'inscription : 24/09/2007
Re: Histoire de 2 zero pour quitter !
taf en perspective pour piger mais merci de l'avoir mis sur le fofo ca aide pdt le cours ^^
Kentin- Néophyte
- Nombre de messages : 16
Age : 35
Localisation : jodoigne
Classe : M2
Date d'inscription : 14/10/2007
Page 1 sur 1
Permission de ce forum:
Vous ne pouvez pas répondre aux sujets dans ce forum
|
|