Определите сумму нечётных чисел. если введённое число будет чётным-цикл заканчивается.(решить используя оператор while) !

gggtair2004 gggtair2004    1   04.10.2019 22:10    0

Ответы
есенина1920 есенина1920  09.10.2020 20:33

var

a,sum:Integer;

begin

readln(a);

sum:=0;

while a mod 2 <> 0 do

begin

sum:=sum+a;

readln(a);

end;

writeln('sum=',sum);

end.

ПОКАЗАТЬ ОТВЕТЫ
Другие вопросы по теме Информатика