Составить программу которая определяет среди введеных с клавиатуры целых чисел количества нечетных, до ввода числа 0

PascalABC

Question

Информатика

Полюня

7 июля, 17:01

Составить программу которая определяет среди введеных с клавиатуры целых чисел количества нечетных, до ввода числа 0

PascalABC

+1

Ответы (1)

Знаете ответ на вопрос?

Галика · Answer 1

Program ex;

var a, k: integer;

begin a : = 1; k : = 0; while a 0 do begin read (a) ; if (not (a mod 2 = 0)) then k : = k + 1; end; write (k) / / Если нужен только подсчет, можно убрать. end.

Составить программу которая определяет среди введеных с клавиатуры целых чисел количества нечетных, до ввода числа 0PascalABC

Составить программу которая определяет среди введеных с клавиатуры целых чисел количества нечетных, до ввода числа 0

PascalABC