Дана числовая последовательность случайных натуральных чисел не превышающих число 255. Конец последовательности число ноль. Проанализировать последовательность и вывести на экран количество, в этой последовательности, нечетных чисел, которые лежат в диапазоне от 1 до 9 включительно.

Пример работы программы:

Ввод: 20 5 67 210 3 45 0

Вывод: 2

Ввод: 10 13 17 19 10 0

Вывод: 0

Ввод: 2 4 6 8 10 14 15 0

Вывод: 0

Question

Информатика

Перегрина

4 января, 14:26

Дана числовая последовательность случайных натуральных чисел не превышающих число 255. Конец последовательности число ноль. Проанализировать последовательность и вывести на экран количество, в этой последовательности, нечетных чисел, которые лежат в диапазоне от 1 до 9 включительно.

Пример работы программы:

Ввод: 20 5 67 210 3 45 0

Вывод: 2

Ввод: 10 13 17 19 10 0

Вывод: 0

Ввод: 2 4 6 8 10 14 15 0

Вывод: 0

+5

Ответы (1)

Знаете ответ?

Агапа · Answer 1

Program pos;

var

c, n: integer;

begin

c : = 0;

while (True) do

begin

readln (n) ;

if n = 0 then

break

else

if (n mod 2 = 1) and (n > = 1) and (n < = 9) then

c : = c + 1;

end;

writeln ('количество: ', c) ;

end.