Напишите программу, которая в последовательности натуральных чисел определяет количество трехзначных чисел, кратных 4. Программа получает на вход натуральные числа, количество введенных чисел неизвестно, последовательность чисел заканчивается числом 0 (0 — признак окончания ввода, не входит в последовательность).
Количество чисел не превышает 1000. Введенные числа не превышают 30 000.
Программа должна вывести одно число: количество трехзначных чисел, кратных 4.
Пример работы программы:
Входные данные
Выходные данные
120936540
1
Решение.
Приведем решение на языке Паскаль.
var a, answer: integer; begin answer:=0; readln(a); while a<>0 do begin if (a mod 4 = 0) and (a > 99) and (a < 1000) then answer := answer + 1; readln(a); end; writeln(answer); end.
Возможны и другие варианты решения.
Для проверки правильности работы программы необходимо использовать следующие тесты:
№
Входные данные
Выходные данные
1
300 16 17 0
1
2
1000 8 0
0
3
400420 121 122 0
2
Просмотр содержимого документа
«Разбор задания ОГЭ по информатике. Февраль 2025. Программирование. Каталог заданий. Задания для подготовки»
Тип 16 № 37904
Напишите программу, которая в последовательности натуральных чисел определяет количество трехзначных чисел, кратных 4. Программа получает на вход натуральные числа, количество введенных чисел неизвестно, последовательность чисел заканчивается числом 0 (0 — признак окончания ввода, не входит в последовательность).
Количество чисел не превышает 1000. Введенные числа не превышают 30 000.
Программа должна вывести одно число: количество трехзначных чисел, кратных 4.
Пример работы программы:
Входные данные
Выходные данные
120936540
1
Решение.
Приведем решение на языке Паскаль.
var a, answer: integer; begin answer:=0; readln(a); while a0 do begin if (a mod 4 = 0) and (a 99) and (a
Возможны и другие варианты решения.
Для проверки правильности работы программы необходимо использовать следующие тесты: