Определите сумму нечётных чисел. Если введённое число будет чётным-цикл заканчивается.(решить используя оператор While)
СРОООЧЧНОООО!!!
Ответы
Ответ дал:
0
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.
Похожие вопросы
2 года назад
2 года назад
2 года назад
2 года назад
8 лет назад
8 лет назад
9 лет назад