Question

9 класс, смотрите вложения! Решите в программе Паскаль  ОПЕРАТОР  ЦИКЛА  REPEAT. Срочно!!! Решать то, где написано "Самостоятельно" только под буквой "а" и "б". "в" не нужно. спасибо)

Answer 1

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

 

var chislo, summa, proizv:integer;
begin
summa:=0;
proizv:=1;
repeat
Writeln('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.