De alcătuit programul pentru suma și produsul numerelor pare.
În Pascal.
Urgent..


Răspuns :

program brainly;

var i, s, p:integer;

begin

s:=0;

p:=1;

for i:=1 to 10 do begin

if i mod 2 = 0 then begin

s:=s+i;

p:=p*i;

end;

end;

write('Suma numerelor pare este ',s);

writeln();

writeln('Produsul numerelor pare este ', p);

end.