Question

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 !

Answer 1

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

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

Answer 2

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: