Войти
Регистрация
Спроси ai-bota
В
Все
Б
Биология
Б
Беларуская мова
У
Українська мова
А
Алгебра
Р
Русский язык
О
ОБЖ
И
История
Ф
Физика
Қ
Қазақ тiлi
О
Окружающий мир
Э
Экономика
Н
Немецкий язык
Х
Химия
П
Право
П
Психология
Д
Другие предметы
Л
Литература
Г
География
Ф
Французский язык
М
Математика
М
Музыка
А
Английский язык
М
МХК
У
Українська література
И
Информатика
О
Обществознание
Г
Геометрия
Показать больше
Показать меньше
foma199999
09.11.2021 08:43 •
Информатика
Сумма цифр трехзначного числа кратна 7, само число так же делится на 7. найти все такие числа (в паскале)
Показать ответ
Ответ:
mrden4uk1
03.10.2020 09:32
Var
i:integer;
Begin
Write('Числа, сумма цифр которого делится на 7, и само число делится на 7 ');
for i:= 100 to 999 do
if (((i mod 10 + i div 10 mod 10 + i div 100) mod 7) = 0) and ((i mod 7) = 0) then write(i,' ');
End.
0,0
(0 оценок)
Популярные вопросы: Информатика
алмат112
12.05.2023 14:56
Задания 1. Пронумеруй слева направо упражнения для пользователей ком-пьютером, представленные на рисунке 4. Назови их и заполнитаблицу. Для каких частей тела они предназначены? Сколько...
khramenkova
13.02.2022 12:13
Какие наиболее популярные облачные провайдеры вам известны? ...
Skynet14
16.06.2020 10:14
Вам даны числа n и цифра d .выведите все n ,которые не содержат цифру d,в возрастающем порядке...
bagfaver
16.06.2020 10:14
Когда мы переписываемся, мы когда мы переписываемся, мы часто используем цифры в нашем тексте. вам дано одно предложение на языке. нужно найти все цифры, которые встречаются в этом...
елена1810
16.06.2021 06:15
Опишите структуру записей( имена полей, типы полей, главные ключи) для баз данных: рейсы самолетов, школы города, страны мира....
gavronovaanna2oz9c0h
24.08.2022 01:13
Паскаль : каждый солнечный день улитка, сидящая на дереве, поднимается вверх на 2 см., а каждый пасмурный день опускается на 1 см. в начале наблюдений улитка находится на а см. от...
guliraj
07.04.2020 08:17
Қалай шығарады, көмектесіңіздерші ...
mishutka1515
09.07.2022 22:38
информатика сор 6 класс 4 четверть...
Nickhoffmanru
03.02.2023 11:59
2. аргументируйте ! какую входную информацию следует обработать, чтобы: а) вычислить площадь прямоугольника; б) принять решение о покупке новой модели мобильного телефона; в) сделать...
aaapruda
03.05.2020 11:21
Файл,полное имя которого было c: \doc\referat.doc ,сохранили в подкаталоге txt корневого каталога диска e. каково полное имя сохранённого файла? а) e: \txt\doc\referat.doc б) e: \doc\txt\referat.doc...
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota
Оформи подписку
О НАС
О нас
Блог
Карьера
Условия пользования
Авторское право
Политика конфиденциальности
Политика использования файлов cookie
Предпочтения cookie-файлов
СООБЩЕСТВО
Сообщество
Для школ
Родителям
Кодекс чести
Правила сообщества
Insights
Стань помощником
ПОМОЩЬ
Зарегистрируйся
Центр помощи
Центр безопасности
Договор о конфиденциальности полученной информации
App
Начни делиться знаниями
Вход
Регистрация
Что ты хочешь узнать?
Спроси ai-бота
i:integer;
Begin
Write('Числа, сумма цифр которого делится на 7, и само число делится на 7 ');
for i:= 100 to 999 do
if (((i mod 10 + i div 10 mod 10 + i div 100) mod 7) = 0) and ((i mod 7) = 0) then write(i,' ');
End.