Программа получает на вход целые числа, количество введенных чисел
Условие
Напишите программу, которая в последовательности целых чисел определяет количество четных чисел, кратных 7. Программа получает на вход целые числа, количество введенных чисел неизвестно, последовательность чисел заканчивается числом 0 (0 — признак окончания ввода, не входит в последовательность). Количество чисел не превышает 1000. Введенные числа по модулю не превышают 30 000. Программа должна вывести одно число: количество четных чисел, кратных 7. Пример работы программы: Входные данные | Выходные данные | -32 14 17 0 | 1 | Для проверки правильности работы программы необходимо использовать следующие тесты: № | Входные данные | Выходные данные | 1 | 10 7 0 | 0 | 2 | 17 0 | 0 | 3 | 14 0 | 1 | 4 | -42 1001 2800 0 | 2 | Критерии оценивания выполнения задания | Баллы | Предложено верное решение. Программа правильно работает на всех приведённых выше тестах. Программа может быть записана на любом языке программирования. | 2 | Программа выдаёт неверный ответ на одном из тестов, приведённых выше. Например, решение, в котором неверно задано условие отбора чисел: (a mod 2=0)or(a mod 7=0), выдаст неправильный ответ на тесте № 1. ИЛИ Программа выдаёт на всех тестах ответ на единицу больше, чем требуется. Такое возможно, если в решении при определении количества чётных чисел, кратных 7, ошибочно учитывается 0. | 1 | Программа выдаёт на тестах неверные ответы, отличные от описанных в критерии на 1 балл. | 0 | Максимальный балл | 2 |
Формат задания
Решение по шагам
Как рассуждать
Решение. Вариант решения на языке Паскаль. var a, answer: integer;begin answer:=0; readln(a); while a<>0 do begin if (a mod 2 =
Осталось ещё 1 шаг — откроются после входа:
- Шаг 2
Бесплатно · займёт минуту