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

Предыдущий
вопрос Следующий
вопрос

Пример решения на Pascal:

program SumOfOddNumbers;
var
number, sum: integer;
begin
sum := 0;
repeat
write('Введите число: ');
readln(number);
if (number <> 0) and (number mod 2 <> 0) then
sum := sum + number;
until number = 0;
writeln('Сумма всех нечетных чисел: ', sum);
end.

Эта программа считывает числа, введенные пользователем, и суммирует все нечетные числа в последовательности, игнорируя ноль. Программа завершается, когда пользователь вводит ноль.