Склавиатуры вводится последовательность чисел необходимо их сумировать пока не будет введено число кратное 2.результат вывести на экран. заранее

milochkarodтирмепнрн milochkarodтирмепнрн    1   17.08.2019 19:50    0

Ответы
4686532 4686532  05.10.2020 01:24
Program v;
Var a,b:integer;
BEGIN
a:=1;
While (a mod 2 <> 0) do begin
readln (a);
if (a mod 2 <> 0) then
b:=b+a;
end;
writeln (b);
END.
ПОКАЗАТЬ ОТВЕТЫ
Другие вопросы по теме Информатика