Определите сумму нечётных чисел. Если введённое число будет чётным-цикл...

Question

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

Comments

язык?

---

Pascal abc

Answer 1

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.