43

Напишите программу, которая в последовательности целых чисел определяет их…

29 марта 2023

Напишите программу, которая в последовательности целых чисел определяет их количество и подсчитывает сумму положительных четных чисел, не превосходящих 256. Программа получает на вход целые числа, количество введенных чисел неизвестно, последовательность чисел заканчивается числом 0 (0 — признак окончания ввода, не входит в последовательность). Количество чисел не превышает 1000. Введенные числа по модулю не превышают 30 000. Программа должна вывести два числа: длину последовательности и сумму положительных четных чисел, не превосходящих 256.

категория: информатика



52

var a, b, c: integer; beginb: =0; c: =0; while a<>0 do beginreadln (a); b: =b+1; if (a <= 256) and (a mod 2=0) then c: =c+a; readln (a); end; writeln ('dlina=',b,' cymma=',c) end.

Знаете ответ?


Есть интересный вопрос? Задайте его нашему сообществу, у нас наверняка найдется ответ!
Делитесь опытом и знаниями, зарабатывайте награды и репутацию, заводите новых интересных друзей!
Задавайте интересные вопросы, давайте качественные ответы и зарабатывайте деньги. Подробнее...