Дана числовая последовательность случайных натуральных - вопрос №6935997 от Zeka211 29.11.2021 11:49

Question

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

Zeka211 · Answer

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....