Войти
Регистрация
Спроси ai-bota
В
Все
М
Математика
О
ОБЖ
У
Українська мова
Д
Другие предметы
Х
Химия
М
Музыка
Н
Немецкий язык
Б
Беларуская мова
Э
Экономика
Ф
Физика
Б
Биология
О
Окружающий мир
Р
Русский язык
У
Українська література
Ф
Французский язык
П
Психология
А
Алгебра
О
Обществознание
М
МХК
В
Видео-ответы
Г
География
П
Право
Г
Геометрия
А
Английский язык
И
Информатика
Қ
Қазақ тiлi
Л
Литература
И
История
Показать больше
Показать меньше
ryazanovaaaa18
22.01.2020 10:15 •
Информатика
Составьте программу, нахождения суммы чисел от 1 до 30, которые делятся без остатка на 2 и 3, но не делятся на 4
Показать ответ
Ответ:
cote18
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 оценок)
Популярные вопросы: Информатика
misterkaha
31.08.2021 20:23
1)заданы 2 целых числа. напечатать, делится ли первое на второе нацело. напечатать, является ли заданное число четным. 2)с клавиатуры вводятся 2 числа: возраст брата и возраст...
krikstoon1
24.02.2021 19:36
Составить алгоритм на вход подается одномерный массив из 10 элементов, необходимо узнать наибольший элемент массива и наименьший элемент массива, после чего их сложить...
matvienko14
03.10.2022 22:07
Сколько символов содержит текст, записанный в 8-битном коде, информационный объём которого равен 0,25 Кбайт?...
SKoteickaЗ
11.10.2020 03:58
Составить фрагмент программы для нахождения суммы цифр в трехзначном числе....
askerova1408
27.05.2020 05:31
Какое количество информации несет в себе сообщение 05734230,если алфавит знаковой системы состоит из символов 0,1,2,3,4,5,6,7....
Ivanlabur
25.08.2020 20:59
Количество информации в сообщении из 1024 символов, составило 1/8 часть кбайта. каков размер алфавита, с которого записано сообщение?...
AsanovaLiana
18.08.2022 07:05
Запрограммировать свою первую букву имени (А) на языке кумир...
Ааапллортдопсмтдд
11.05.2021 04:48
С объяснением, что. как, да почему....
макс3109
23.09.2020 10:56
В какой строке данной программы допущена ошибка?...
starceva83
09.06.2021 14:52
Перевести 3мб в биты ,2048гб в мб , 8192кб в мб, 8192бит в кб...
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и 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.