Question

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

Answer 1

Ответ:

• 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, что оптимально для этой задачи.

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