Напишите программу, которая в последовательности - вопрос №13026855 от dongrigoriew20 15.04.2020 21:37

Question

Информатика: Напишите программу, которая в последовательности целых чисел определяет количество нечётных чисел, кратных 3. Программа получает на вход целые числа, количество введённых чисел неизвестно, последовательность чисел заканчивается числом 0 (0 – признак окончания ввода, не входит в последовательность). Количество чисел не превышает 1000. Введённые числа по модулю не превышают 30 000. Программа должна вывести два числа: длину последовательности (завершающий 0 не учитывается) и количество нечётных чисел,

dongrigoriew20 · Answer

ответ:var i, c, n: smallint;begin repeat readln(i); c += 1; if (i mod 2 = 1) and (i mod 3 = 0) and (i<>0) then n += 1; until i = 0; c := c - 1; writeln('Длина: ', c); writeln('Количество: ', n);end.

Использование smallint связано с тем, что по условию введённые числа по модулю не превышают 30 000. У smallint диапазон значений от -32 768 до 32 767, что оптимально для этой задачи.

Пример работы:
Напишите программу, которая в последовательности целых чисел определяет количество нечётных чисел, к