Войти
Регистрация
Спроси ai-bota
В
Все
М
Математика
О
ОБЖ
У
Українська мова
Д
Другие предметы
Х
Химия
М
Музыка
Н
Немецкий язык
Б
Беларуская мова
Э
Экономика
Ф
Физика
Б
Биология
О
Окружающий мир
Р
Русский язык
У
Українська література
Ф
Французский язык
П
Психология
А
Алгебра
О
Обществознание
М
МХК
В
Видео-ответы
Г
География
П
Право
Г
Геометрия
А
Английский язык
И
Информатика
Қ
Қазақ тiлi
Л
Литература
И
История
Показать больше
Показать меньше
aibar4
19.10.2020 16:27 •
Информатика
Сумма цифр трехзначного числа кратна 7, само число так же делится на 7. найти все такие числа (в паскале)
Показать ответ
Ответ:
Котик2841
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 оценок)
Популярные вопросы: Информатика
у2цциволв1
31.12.2020 20:12
Программирование. Нужно скопировать из первого файла во второй те строки, где встречается цифра 5? Язык программирования любой...
melomicsmel
16.09.2021 10:58
AR) Дополненная реальность Менюдаасааo-x-Панель файловПанельинструментовПредварительный просмотрAdnoШкала времениАудиодорожкаВидеодорожкаРис. 37. Окно редактора VideoPad (интерфейс)Как...
Kopek
03.12.2020 07:32
Напишите программу где после решения допустим по он из дж сразу переводит в кдж...
Ytkakiki
03.12.2020 07:32
8. при каких команд на слайд можно добавить рисунок? a) edit-points b) insert-picture c) insert-object d) format-...
Alaaxbek
03.12.2020 07:32
Составьте программу сортировки по возрастанию значений трёх переменных: a,d,c....
rakitina03
03.12.2020 07:32
Вкаких соц.сетях есть дэниел редклифф. подскажите...
w678Kordroy
03.12.2020 07:32
Продумайте состав, типы полей и ключ однотабличной базы данных регионы рф....
sushenkop08wf4
16.12.2022 20:06
Верно ли, что сумма первых n членов последовательности фибоначчи есть четное число? пропишите через var и for в javascript...
ksusha25night
10.04.2022 14:46
Как из несколько python файлов сделать exe. есть программа калькулятор, на одном файле интерфейс из qt designer, на другом сама логика программы, а на третий мейн фаил с запуском....
Bollsav
30.09.2020 08:37
Паскаль. нач. уровень. числа фибоначчи определяются: f0=f1=1, fn=fn-1+fn-2, при n=2, (т.е. каждое последующее число равно сумме двух предыдущих). составить программу: а) нахождения...
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и 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.