Программа получает на вход целые числа, количество введенных чисел
Условие
Напишите программу, которая в последовательности целых чисел определяет их количество и подсчитывает сумму положительных четных чисел, не превосходящих 256. Программа получает на вход целые числа, количество введенных чисел неизвестно, последовательность чисел заканчивается числом 0 (0 — признак окончания ввода, не входит в последовательность).Количество чисел не превышает 1000. Введенные числа по модулю не превышают 30 000. Программа должна вывести два числа: длину последовательности и сумму положительных четных чисел, не превосходящих 256. Пример работы программы: Входные данные | Выходные данные | −20 6 1000 100 −200
| 0 | 5 |
|---|---|
| 106 |
Формат задания
Решение по шагам
Как рассуждать
Решение. 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 шага
then sum := sum + a; readln(a); end…
| and (a <= 256): sum += a a =…
Бесплатно · займёт минуту