
Напишите программу, которая в последовательности целых чисел находит сумму четных чисел в диапазоне
от 5 до 25. Программа получает на вход целые числа, количество введенных чисел неизвестно, последовательность чисел заканчивается числом 0 (0 - признак окончания ввода, не входит в последовательность). Количество чисел не превышает 1000. Введенные числа по модулю не превышают 30000. Программа должна вывести одно число: сумму четных чисел в диапазоне от 5 до 25. Входные данные : 4, 16, 17, 26,0 Выходные данные: 16

Ответы на вопрос

Program Summa;
Uses Crt;
var s,n,c:integer;
begin
clrscr;
write('Введите числа коннц ввода 0: ');
s:=0;c:=0;
repeat
readln(n);
c:=c+1;
if (n mod 2)=0 then
if ((n>=5)and (n<=25)) then s:=s+n;
until (n=0) or (c=1000) ;
write('Сумма ',c,' чётных чисел в диапазоне от 5 до 25:',s);
readkey;
end.



Для решения данной задачи можно использовать цикл while для считывания последовательности чисел и проверки условия окончания ввода (число 0). Внутри цикла, для каждого введенного числа, проверяем, является ли оно четным и попадает ли в заданный диапазон. Если условие выполняется, то добавляем это число к сумме четных чисел.
Вот пример программы на языке Python, которая решает данную задачу:
```python sum_even = 0 # переменная для хранения суммы четных чисел number = int(input("Введите число: "))
while number != 0: if number % 2 == 0 and 5 <= number <= 25: sum_even += number number = int(input("Введите число: "))
print("Сумма четных чисел в диапазоне от 5 до 25:", sum_even) ```
После запуска программы она будет последовательно запрашивать ввод чисел от пользователя. Если число является четным и попадает в диапазон от 5 до 25, то оно будет добавлено к сумме четных чисел. Ввод чисел прекратится, когда пользователь введет число 0. После этого программа выведет сумму четных чисел в заданном диапазоне.


Топ вопросов за вчера в категории Информатика
Последние заданные вопросы в категории Информатика
-
Математика
-
Литература
-
Алгебра
-
Русский язык
-
Геометрия
-
Английский язык
-
Химия
-
Физика
-
Биология
-
Другие предметы
-
История
-
Обществознание
-
Окружающий мир
-
География
-
Українська мова
-
Информатика
-
Українська література
-
Қазақ тiлi
-
Экономика
-
Музыка
-
Право
-
Беларуская мова
-
Французский язык
-
Немецкий язык
-
МХК
-
ОБЖ
-
Психология
-
Физкультура и спорт
-
Астрономия
-
Кыргыз тили
-
Оʻzbek tili