Опубликовано 10.06.2017 по предмету Информатика от Гость >> <<

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

Ответ оставил Гость

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.