Напишите программу, которая в последовательности натуральных чисел определяет количество таких чисел, которые кратны 4 и оканчиваются на 2. Программа получает на вход натуральные числа, количество введённых чисел неизвестно, по...
Напишите программу, которая в последовательности натуральных чисел определяет количество таких чисел, которые кратны 4 и оканчиваются на 2. Программа получает на вход натуральные числа, количество введённых чисел неизвестно, последовательность чисел заканчивается числом 0 (0 – признак окончания ввода, не входит в последовательность). Количество чисел не превышает 1000. Введённые числа не превышают 30 000. Программа должна вывести одно число: количество чисел, кратных 4 и оканчивающихся на 2. Пример работы программы:
Входные данные Выходные данные
12 140 22 0 1
Гость
Ответ(ы) на вопрос:
Гостьvar count, x : integer;begin count := 0; repeat read (x); if (x mod 4=0) and (x mod 10=4) then inc (count); until x = 0; writeln (count);end.
Не нашли ответ?
Похожие вопросы