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

Олежик121314 Олежик121314    3   20.08.2019 09:30    0

Ответы
littleeeprincess littleeeprincess  05.10.2020 07:01
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.
ПОКАЗАТЬ ОТВЕТЫ
Другие вопросы по теме Информатика