👤
234511EZ
a fost răspuns

Utilizatorul introduce de la tastatură numere întregi pozitive , separate prin acționarea tastei . 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 . Ajutați-mă vă rog !

Răspuns :

ARTUR99EZ
program info;
var
    sp,cp,si,ci,n:integer;
    mi,mp:real;
begin   
    n:=1;
    cp:=0;
    ci:=0;
    sp:=0;
    si:=0;
    while n<>0 do begin
        readln(n);
        if(n mod 2 = 0) then
        begin
           sp := sp+n;
           cp := cp+1;
        end
        else 
        begin
           si := si+n;
           ci := ci+1;
        end
    end;

    mp:=sp/cp;
    mi:=si/ci;
    writeln('suma pare=',sp);
    writeln('media pare=',mp);
    writeln('suma impare=',si);
    writeln('media impare=',mi);
end.
Vă mulțumim că ați vizitat platforma noastră dedicată Informatică. Sperăm că informațiile oferite v-au fost utile. Dacă aveți întrebări sau aveți nevoie de asistență suplimentară, nu ezitați să ne contactați. Așteptăm cu nerăbdare să vă revedem și nu uitați să ne salvați în lista de favorite!


Ez Askings: Alte intrebari