Напишите программу, которая в последовательности целых чисел определяет сумму чётных чисел, принадлежащих интервалу (15, 190) или сообщает, что таких чисел нет (выводит "net"). Программа получает на вход целые числа, количество введённых чисел неизвестно, последовательность чисел заканчивается числом 0 (0 -- признак окончания ввода, не входит в последовательность).
Количество чисел не превышает 1000. Введённые числа по модулю не превышают 30 000. Программа должна вывести одно число: сумму чётных чисел, принадлежащих интервалу (15, 190) или вывести "net", если таких чисел нет.
Пример работы программы:
Вход:
5
15
25
48
180
196
0
Выход:
228
(48+180)
Язык Паскаль
Количество чисел не превышает 1000. Введённые числа по модулю не превышают 30 000. Программа должна вывести одно число: сумму чётных чисел, принадлежащих интервалу (15, 190) или вывести "net", если таких чисел нет.
Пример работы программы:
Вход:
5
15
25
48
180
196
0
Выход:
228
(48+180)
Язык Паскаль
More Questions From This User See All
Answers & Comments
begin
readln(a);
while a<>0 do begin
readln(a);
if (a >15) and (a<190) and (a mod 2=0) then
s:=s+a;
end;
writeln(s);
end.