Вопрос, который вызвал трудности

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

Ответ экспертов Учись.Ru

Чтобы дать полноценный ответ, был привлечён специалист, который хорошо разбирается в теме «Информатика». Ваш вопрос звучал так:

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

После обсуждения с другими специалистами сервиса мы пришли к выводу, что правильный ответ на ваш вопрос будет звучать следующим образом:

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.