Программа получает на вход целые числа, количество введенных чисел
Условие
Напишите программу, которая в последовательности целых чисел определяет их количество и подсчитывает сумму положительных четных чисел, не превосходящих 256. Программа получает на вход целые числа, количество введенных чисел неизвестно, последовательность чисел заканчивается числом 0 (0 — признак окончания ввода, не входит в последовательность).Количество чисел не превышает 1000. Введенные числа по модулю не превышают 30 000. Программа должна вывести два числа: длину последовательности и сумму положительных четных чисел, не превосходящих 256. Пример работы программы: Входные данные | Выходные данные | −20 6 1000 100 −200 0 | 5 106 | Критерии оценивания выполнения задания | Баллы | Предложено верное решение. Программа правильно работает на всех приведённых выше тестах. Программа может быть записана на любом языке программирования | 2 | Программа выдаёт неверный ответ ровно на одном из тестов, приведённых выше ИЛИ Программа выдаёт неверный ответ на всех тестах: на каждом тесте только на один из двух вопросов получен правильный ответ. ИЛИ Программа выдаёт неверный ответ на всех тестах: сначала выводится ответ на второй вопрос, затем — на первый | 1 | Программа выдаёт на тестах неверные ответы, отличные от описанных в критерии на 1 балл | 0 | Максимальный балл | 2 |
Формат задания
Решение по шагам
Как рассуждать
Решение. var a, N: integer; sum: longint;begin sum := 0; N := 0; readln(a); while a <> 0 do begin N := N + 1; if (a mod 2 =
Осталось ещё 2 шага — откроются после входа:
- Шаг 2
- Шаг 3
Бесплатно · займёт минуту