9 класс, смотрите вложения! Решите в программе Паскаль ОПЕРАТОРЦИКЛАREPEAT. Срочно!!! Решать то, где написано "Самостоятельно" только под буквой "а" и "б". "в" не нужно. спасибо)
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.
Answers & Comments
программа здесь: 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.