👤
GoldenFlower
a fost răspuns

Am nevoie de ajutor !

1. Se citesc numere de la tastatură până la apariția lui zero. Să se determine suma celor pare.

2.Se citesc numere de la tastatură până la apariția lui zero. Să se determine câte dintre ele erau impare.
Sa fie rezolvate amândouă in pseudocod !

Răspuns :

Constionela41

Primul ex:2+4+6+8+0=21->5 erau pare

Al doilea ex:1+3+5+7+9=25->5 erau impare

ErickDess

Răspuns:

var n,p,i:integer;

Begin

 Writeln('Introdu numerele dorite,"0" v-a insemna sfirsit');

 i:=0;

 p:=0;

 Repeat

   Readln(n);

   If (n mod 2=0) then p:=p+n else i:=i+1;

 until n=0 ;

 Writeln('Suma numerelor pare - ',p);

 Writeln('Numere inpare total - ',i);

end.

Explicație:

Alte intrebari