Дана последовательность целых чисел, оканчивающаяся нулём. Необходимо найти сумму всех...

Question

Дана последовательность целых чисел, оканчивающаяся нулём. Необходимо найти сумму всех нечетных чисел этой последовательности. Ноль числом последовательности не считается. Паскаль

Answer 1

Program srof;
var a,b:integer;
begin 
writeln('введите последовательность чисел закончив её введением 0'); 
readln(a); 
b:=0; 
c:=0; 
while (a<>0) do 
begin 
if a mod 2 <>0 then 
b:=b+a; 
readln(a); 
end;
 writeln(b);
 end.