Question

Помогите!!!Даны числа целого типа заданные с клавиатуры выяснить сколько среди них нечетных.Найти их сумму условием окончания ввода служит 0

Answer 1

ОТДЕЛ Задание+;
ИСПОЛЬЗУЕТ Вывод ИЗ "...ОтделыОбмен", Приём ИЗ "...ОтделыОбмен";

ПЕР
  число, сум_неч: ЦЕЛ;

УКАЗ
  сум_неч := 0;
  ПОВТОРЯТЬ
    число := Приём.Число(); Вывод.Цепь(" ");
    ЕСЛИ НЕ ЧЕТ(число) ТО УВЕЛИЧИТЬ(сум_неч, число) КОН
  ДО число = 0;
  Вывод.ЧЦел("^%d", сум_неч, 0, 0, 0)

КОН Задание.

Answer 2

Спасибо огромное