Дана числовая последовательность случайных натуральных чисел не превышающих число 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

Информатика

Агрипка

16 апреля, 06:00

Дана числовая последовательность случайных натуральных чисел не превышающих число 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

+2

Ответы (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.