9 класс, смотрите вложения! Решите в программе Паскаль  ...

Сергей

программа здесь: http://rghost.ru/43527025

 

var chislo, summa, proizv:integer;beginsumma:=0;proizv:=1;repeatWriteln('Input number: ');Readln(chislo);if chislo mod 2 = 0 then summa:=summa+chislo;if chislo 0 then proizv:=proizv * chislo;until chislo=0;Writeln('a) Sum = ', summa);Writeln('b) Proizvedenie = ', proizv);readln;end.