Войти
Регистрация
Спроси ai-bota
В
Все
М
Математика
А
Английский язык
Х
Химия
Э
Экономика
П
Право
И
Информатика
У
Українська мова
Қ
Қазақ тiлi
О
ОБЖ
Н
Немецкий язык
Б
Беларуская мова
У
Українська література
М
Музыка
П
Психология
А
Алгебра
Л
Литература
Б
Биология
М
МХК
О
Окружающий мир
О
Обществознание
И
История
Г
Геометрия
Ф
Французский язык
Ф
Физика
Д
Другие предметы
Р
Русский язык
Г
География
Показать больше
Показать меньше
87780583887
05.08.2021 22:30 •
Информатика
Составить программу нахождения всех трехзначных чисел, таких, что сумма цифр равна а, а само число делится на в (а и в вводятся с клавиатуры).
Показать ответ
Ответ:
KennyPro
08.10.2020 04:58
Var a,b,s,q,w,e:Integer;
begin
Read(a,b);
for s:= 100 to 999 do
begin
q:= s div 100;
w:= s div 10 mod 10;
e:= s mod 10;
if (q+w+e=a) and(s mod b = 0) then
WriteLn(s);
end;
end.
0,0
(0 оценок)
Популярные вопросы: Информатика
Julyash
21.05.2023 11:52
Роботы какого класса могут быть летающими, шагающими, плавающими и ползающими? Манипуляционные роботы Мобильные роботы Промышленные роботы...
katrinsweet
28.03.2022 22:45
Ребят как проверить в кумире(роботе) что клетка закрашена? заранее...
Dipper17
17.04.2023 21:32
Задание по информатике на фото очень...
abereziuk2017
29.05.2023 18:27
понять, как это решать! Да, знаю, что здесь чисто математические действия. Я умею умножать, делить, вычетать, складывать. Но мне нужно их вместе понимать, как пользоваться,...
DeniSNok
12.01.2021 03:55
Прочитай. выпиши только те предложения, в которых есть существительные 1-го склонения в именительном или винительном падеже единственного числа. обозначь падеж. наступила...
alina97531
12.01.2021 03:55
1.вставьте пропущенные буквы бе…пробудный, во…кликнуть, и…тыкать, ра…косый, бе…выездный, ни…падать, бе…порядок, в…колыхнуть, бе…аконный, бе…лесье, в…бесить, …дравствуй,...
лилия581
12.01.2021 03:55
1. напиши предложения в вопросительной форме. my mother cooks breakfast every morning. dima’s brother does his homework every day. we go on a picnic on sundays. oleg’s...
alineeeeeel
12.01.2021 03:55
Считается, что вес тела на луне в 6 раз меньше,чем на земле.космонавт решил проверить это на опыте.он встал на рычажные весы же обнаружил космонавт? дайте ответ и объясните...
taibat3
12.01.2021 03:55
Как зделать слова словосочитатание?...
artemstepanyuk
12.01.2021 03:55
Различия восточных и европейских государств...
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota
Оформи подписку
О НАС
О нас
Блог
Карьера
Условия пользования
Авторское право
Политика конфиденциальности
Политика использования файлов cookie
Предпочтения cookie-файлов
СООБЩЕСТВО
Сообщество
Для школ
Родителям
Кодекс чести
Правила сообщества
Insights
Стань помощником
ПОМОЩЬ
Зарегистрируйся
Центр помощи
Центр безопасности
Договор о конфиденциальности полученной информации
App
Начни делиться знаниями
Вход
Регистрация
Что ты хочешь узнать?
Спроси ai-бота
begin
Read(a,b);
for s:= 100 to 999 do
begin
q:= s div 100;
w:= s div 10 mod 10;
e:= s mod 10;
if (q+w+e=a) and(s mod b = 0) then
WriteLn(s);
end;
end.