Войти
Регистрация
Спроси ai-bota
В
Все
М
Математика
А
Английский язык
Х
Химия
Э
Экономика
П
Право
И
Информатика
У
Українська мова
Қ
Қазақ тiлi
О
ОБЖ
Н
Немецкий язык
Б
Беларуская мова
У
Українська література
М
Музыка
П
Психология
А
Алгебра
Л
Литература
Б
Биология
М
МХК
О
Окружающий мир
О
Обществознание
И
История
Г
Геометрия
Ф
Французский язык
Ф
Физика
Д
Другие предметы
Р
Русский язык
Г
География
Показать больше
Показать меньше
Lelikc
21.05.2021 10:23 •
Информатика
Ввести с клавиатуры нечетное натуральное число n (25 найти сумму всех четных чисел в диапазоне от 25 до n. вывести результат на экран. желательно на языке java или pascal!
Показать ответ
Ответ:
асемок4
16.08.2020 10:26
Program n1;
var n,sum,i: integer;
begin
readln(n);
sum:=0;
for i:=25 to n do if i mod 2=0 then sum:=sum+i;
write(sum);
end.
0,0
(0 оценок)
Популярные вопросы: Информатика
maxxx1114
06.02.2022 18:17
строчно, очень надо ...
gsubxdu
19.12.2022 17:33
Ғарышқа байланысты хат жазу...
fenziknata
01.10.2021 09:07
Укажите верные и ложные утверждения В и ЛСпрайт Лунатик передает сообщение спрайту Ракета Для спрайта Лунатик использовали алгоритм с не полным ветвлениемДля спрайта Ракета...
Приветикэтоя
08.05.2020 05:21
Определить сколько времени будет падать с яблони яблоко. Высота ветки вводится пользователем с клавиатуры. Время падения можно вычислить по формуле : t=√2h/g. Ускорение...
ЛёхаТихонов
10.09.2020 14:42
Вмассив с клавиатуры вводятся результаты соревнований по многоборью 7 спортсменов (значениея результатов от 1000 до 2000 ). составить программу которая находит номер и...
хадЯ66
11.11.2022 01:52
Сформировать и вывести на печать матрицу а(10,10), элементы которой задать произвольно, кроме элементов, расположенных в заштрихованной области и заданных по формуле а(i,j)=i-j*j...
tel9057969295p0bj7i
29.06.2020 11:18
На рисунке изображена структурная единица нервной ткани – нейрон. Укажите, что показано под цифрами в клетке нейрона 1и 4 ...
julianna19
19.10.2021 06:33
Двум ученикам было поручено вынести все стулья из актового зала школы. Каждый из них самостоятельно может внести эти стулья за 3 часа. За сколько часов эти ученики вынесут...
Yaroslavdonskk
19.10.2021 06:33
Какой из полуостровов крымский или кольский-омывается водами атлантического океана???...
starushka94
23.01.2022 14:23
Решите уравнение 725-x=43500:100...
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota
Оформи подписку
О НАС
О нас
Блог
Карьера
Условия пользования
Авторское право
Политика конфиденциальности
Политика использования файлов cookie
Предпочтения cookie-файлов
СООБЩЕСТВО
Сообщество
Для школ
Родителям
Кодекс чести
Правила сообщества
Insights
Стань помощником
ПОМОЩЬ
Зарегистрируйся
Центр помощи
Центр безопасности
Договор о конфиденциальности полученной информации
App
Начни делиться знаниями
Вход
Регистрация
Что ты хочешь узнать?
Спроси ai-бота
var n,sum,i: integer;
begin
readln(n);
sum:=0;
for i:=25 to n do if i mod 2=0 then sum:=sum+i;
write(sum);
end.