Войти
Регистрация
Спроси ai-bota
В
Все
Б
Биология
Б
Беларуская мова
У
Українська мова
А
Алгебра
Р
Русский язык
О
ОБЖ
И
История
Ф
Физика
Қ
Қазақ тiлi
О
Окружающий мир
Э
Экономика
Н
Немецкий язык
Х
Химия
П
Право
П
Психология
Д
Другие предметы
Л
Литература
Г
География
Ф
Французский язык
М
Математика
М
Музыка
А
Английский язык
М
МХК
У
Українська література
И
Информатика
О
Обществознание
Г
Геометрия
Показать больше
Показать меньше
AlumaZuma
10.12.2020 13:52 •
Информатика
Составьте программу, нахождения суммы чисел от 1 до 30, которые делятся без остатка на 2 и 3, но не делятся на 4
Показать ответ
Ответ:
SAVAAVAAS
12.07.2020 21:52
Var i,sum:integer;
begin
sum:=0;
for i:=1 to 30 do
if (i mod 2=0)and(i mod 3=0)and(i mod 4<>0) then sum:=sum+i;
writeln('ответ: ',sum);
readln
end.
0,0
(0 оценок)
Популярные вопросы: Информатика
Ymnushca
13.12.2021 23:09
маалыматты олчоо бирдиктерин белгиле! а .мегабайт б.гига байт в.теро байт г.баардык жооп туура...
виталий124
18.05.2021 10:34
Выберите неверное утверждение:1) не 0 = 12) A или 1 = 13) A или 0 = 04) Aи 1 = А е...
sonya20067
30.03.2020 16:23
Скласти алгоритм за яким при натисканні клавіші вверх на клавіатурі розмір об‘єкта збільшується на 50%, інакше - на зменьшується на 10%...
Nick12321
03.06.2020 21:44
Даны 2 числа, если их сумма больше 10, то вывести на экран их удвоенное произведение, а иначе большее из чисел заменить их суммой, а меньшее разностью. pascal...
egoremykina
25.03.2023 17:10
Сколько антонимов в стихотворении? полюбил богатый-бедную полюбил учёный-глупую полюбил румяный-бледную полюбил хороший-вредную золотой-полушку медную а)5; б)4; в)2;...
SlavaPogba
25.03.2023 17:10
Как по французски написать предложение моя любимая сестренка?...
LizaPetukhova
25.03.2023 17:10
1) начертите прямоугольник abcd. запишите равные элементы у прямоугольника. 2) начертите квадрат. запишите равные элементы этого квадрата....
Djamkaa0325
25.03.2023 17:10
Какие волшебные предметы были в сказке царевны лягушки...
dsanavskiy77
25.03.2023 17:10
Составьте предложение со словом пустошь...
tttyadoyan235
25.03.2023 17:10
С++ с клавиатуры вводится целое число. если введенное число отрицательное, то возвести его в квадрат , оставить число без изменений в противном случае....
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota
Оформи подписку
О НАС
О нас
Блог
Карьера
Условия пользования
Авторское право
Политика конфиденциальности
Политика использования файлов cookie
Предпочтения cookie-файлов
СООБЩЕСТВО
Сообщество
Для школ
Родителям
Кодекс чести
Правила сообщества
Insights
Стань помощником
ПОМОЩЬ
Зарегистрируйся
Центр помощи
Центр безопасности
Договор о конфиденциальности полученной информации
App
Начни делиться знаниями
Вход
Регистрация
Что ты хочешь узнать?
Спроси ai-бота
begin
sum:=0;
for i:=1 to 30 do
if (i mod 2=0)and(i mod 3=0)and(i mod 4<>0) then sum:=sum+i;
writeln('ответ: ',sum);
readln
end.