Войти
Регистрация
Спроси ai-bota
В
Все
М
Математика
А
Английский язык
Х
Химия
Э
Экономика
П
Право
И
Информатика
У
Українська мова
Қ
Қазақ тiлi
О
ОБЖ
Н
Немецкий язык
Б
Беларуская мова
У
Українська література
М
Музыка
П
Психология
А
Алгебра
Л
Литература
Б
Биология
М
МХК
О
Окружающий мир
О
Обществознание
И
История
Г
Геометрия
Ф
Французский язык
Ф
Физика
Д
Другие предметы
Р
Русский язык
Г
География
Показать больше
Показать меньше
kolopok
26.08.2021 16:44 •
Информатика
Составьте программу, нахождения суммы чисел от 1 до 30, которые делятся без остатка на 2 и 3, но не делятся на 4
Показать ответ
Ответ:
churakova03
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 оценок)
Популярные вопросы: Информатика
unna1
03.11.2021 04:37
Определи причины по которым люди используют интернет вещей это фантастика которая не существует в мире экономия времени интернет вещей приносят Большой вред человеку управление...
TheCosmos
29.01.2022 01:48
Данные переданы через ADSL-соединение с пропускной 5 242 880 бит/с. Определите, сколько секунд понадобится для передачи файла объемом 1 Гбайт с этого соединения....
lsofa1204
12.12.2022 21:00
Составьте таблицу по сложности и по популярности языков мира( 10 языков хватит )....
cudak
13.04.2020 11:50
2. Прочитайте характеристики двух топологий компьютерных сетей. 1 Низкая стоимость и простота Ограничены размеры сети. Выход из построения. Все ЭВМ имеют строя одной ЭВМ приводит...
Germionochka
27.09.2022 18:15
Напишите процедуру, которая переставляет 4 числа в порядке убывания. паскаль...
pedroluisfigoowupwm
27.09.2022 18:15
Напишите консольное приложение на c#, находящее пару чисел меньше n, сумма цифр которых одинакова, и сообщающее, если таких чисел нет....
slkncv
26.05.2021 11:30
На каком основании принимаются решения в процессе программирования? 2 Какие операции входят в операции сравнения? 3 Какова цель логических операций? 4 Чем отличаются простые...
0661246726
28.09.2020 09:30
Для групповых операций с файлами используются маски имен файлов. маска представляют собой последовательность букв, цифр и прочих допустимых в именах файлов символов, в которых...
jsjdjznnxnx
07.09.2022 21:44
Было слышо,как в окно бьется басистая муха. полный разбор предложения...
АринаДаутова
07.09.2022 21:44
Всегда ли отношение к старикам было уважительное?...
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и 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.