Войти
Регистрация
Спроси ai-bota
В
Все
Б
Биология
Б
Беларуская мова
У
Українська мова
А
Алгебра
Р
Русский язык
О
ОБЖ
И
История
Ф
Физика
Қ
Қазақ тiлi
О
Окружающий мир
Э
Экономика
Н
Немецкий язык
Х
Химия
П
Право
П
Психология
Д
Другие предметы
Л
Литература
Г
География
Ф
Французский язык
М
Математика
М
Музыка
А
Английский язык
М
МХК
У
Українська література
И
Информатика
О
Обществознание
Г
Геометрия
Показать больше
Показать меньше
harchuk181002
19.03.2023 12:28 •
Информатика
Среди двузначных чисел найти те, которые делятся на число q, а сумма тех цифр равна n ( 0
Показать ответ
Ответ:
remizov011
10.07.2020 22:53
Var i, q, n : integer;
begin
read(q, n);
for i:=10 to 99 do
if ((i mod q = 0) and (i div 10 + i mod 10 = n)) then
write(i, ' ');
end.
0,0
(0 оценок)
Популярные вопросы: Информатика
bogdanlinchenk
15.05.2021 21:56
(50б)Даны действительные числа a1, ..., a30. Получить: max(a1+a30, a2+a29, ..., a15+a16); на Python...
anzoroglyan1
30.03.2021 01:19
Добрый день. выполнить тест по предмету по Математическим методам...
tikiin
15.09.2020 05:30
ДАЮ 30Б Условие Кристина печёт прекрасные кексы и торты. Она решила начать продавать их в своём интернет-магазине. В первый день Кристина заработала K рублей. Продажи...
ДанилкаМаксимка
03.02.2022 17:39
Cu--cuo--cucl2--cu(oh)2--cu(no3)2 cu(oh)2--cuo--cuso4 потом от cu(oh)2 идёт ветви вниз и там cuo потом cuso4...
LVacelikova
03.02.2022 17:39
Вычислите и отметьте массовую долю натрия нитрата в растворе , если к его раствора массой 130 г с массовой долей соли долить воду массой 70 г...
Алёнажж
03.02.2022 17:39
Что победить смерть герою рассказа - только любовь к жизни?...
ghaban
03.02.2022 17:39
Написать реферат на тему енергия в жизни человека...
Artëm1646
03.02.2022 17:39
Какие силы действуюта при включение фонтана...
Tustik777
03.02.2022 17:39
Что произойдёт с ценами на товар если предложения их при прочих равных условиях возрастёт?...
Фрао
03.02.2022 17:39
Напишите доклад по окр. миру 2 класс на тему природа и здоровье )...
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota
Оформи подписку
О НАС
О нас
Блог
Карьера
Условия пользования
Авторское право
Политика конфиденциальности
Политика использования файлов cookie
Предпочтения cookie-файлов
СООБЩЕСТВО
Сообщество
Для школ
Родителям
Кодекс чести
Правила сообщества
Insights
Стань помощником
ПОМОЩЬ
Зарегистрируйся
Центр помощи
Центр безопасности
Договор о конфиденциальности полученной информации
App
Начни делиться знаниями
Вход
Регистрация
Что ты хочешь узнать?
Спроси ai-бота
begin
read(q, n);
for i:=10 to 99 do
if ((i mod q = 0) and (i div 10 + i mod 10 = n)) then
write(i, ' ');
end.