👤
ENIANACONDORACHI
a fost răspuns

Utilizatorul introduce de la tastatură numere întregi pozitive, separate prin acționarea tastei <ENTER >. Sfârșitul secvenței de numere e indicat prin introducerea numărului 0. Scrieți un program care afișează pe ecran :
a) suma și media aritmetică a numerelor pare ;
b) suma și media aritmetică a numerelor impare;
VĂ ROG MULT, AJUTAȚI-MĂ!❤️​

Răspuns :

Răspuns:

program SumaMedia;

var num, sumapare, sumaimp, nrpare, nrimp:integer;

   mediapare, mediaimp:real;

begin

 writeln('introduceti numere naturale pozitive');

 writeln('introducerea lui 0 este STOP');

 sumapare:=0; sumaimp:=0;

 read(num);

 while num<>0 do

   begin

     if num mod 2=0 then begin inc(sumapare,num); inc(nrpare); end

     else begin inc(sumaimp,num); inc(nrimp); end;

     read(num);

   end;

 writeln('a) Suma numerelor pare = ', sumapare);

 mediapare:=sumapare/nrpare;

 writeln('   Media aritmetica a numerelor pare = ',mediapare);

 writeln('b) Suma numerelor impare = ', sumaimp);

 mediaimp:=sumaimp/nrimp;

 writeln('   Media aritmetica a numerelor impare = ',mediaimp);

end.

Explicație:

Vă mulțumim pentru vizita pe site-ul nostru dedicat Informatică. Sperăm că informațiile prezentate v-au fost utile. Dacă aveți întrebări suplimentare sau nevoie de ajutor, vă rugăm să ne contactați cu încredere. Așteptăm cu drag să reveniți și nu uitați să ne salvați în lista dumneavoastră de favorite!


En Studentsy: Alte intrebari