Войти
Регистрация
Спроси ai-bota
В
Все
М
Математика
А
Английский язык
Х
Химия
Э
Экономика
П
Право
И
Информатика
У
Українська мова
Қ
Қазақ тiлi
О
ОБЖ
Н
Немецкий язык
Б
Беларуская мова
У
Українська література
М
Музыка
П
Психология
А
Алгебра
Л
Литература
Б
Биология
М
МХК
О
Окружающий мир
О
Обществознание
И
История
Г
Геометрия
Ф
Французский язык
Ф
Физика
Д
Другие предметы
Р
Русский язык
Г
География
Показать больше
Показать меньше
danchik56
06.06.2022 10:17 •
Информатика
Среди двузначных чисел найти те, которые делятся на число q, а сумма тех цифр равна n ( 0
Показать ответ
Ответ:
саша4275
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 оценок)
Популярные вопросы: Информатика
aleksseveme
31.03.2020 11:03
Створіть проект для обчислення значення виразу подайте його у словесній формі графічній формі та у середовищі Скретч f=3a+4b:5a-5...
nurlan27
06.10.2020 03:54
Қызықты сайттар дегеніміз не?...
K7I0207G
22.07.2022 17:13
Разработать алгоритм и составить блок-схему для программы, которая по введенному значению аргумента вычисляет значение функции, заданной в виде графика. входные данные – x, r....
Superfoxygirl112
18.07.2021 19:49
Информатика 8 класс, решить,! : определите информационный объем текста,содержащего 2048 символов,закодированного в таблице кодировки кои-8.ответ предоставьте в кбитах.заранее большое...
botuchenyy
18.02.2023 05:24
Вопрос по информатике 8 класс,, решить.: определите количество пикселей в компьютерном изображении 10,16×2,54 см. с разрешающей заранее большое ! ...
Kate110868
22.09.2022 02:34
Установите соответствие. 1) просмотр учениками видеоролика о суперкомпьютерах 2) измерение температуры больного каждый час 3) видеосъёмка школьного праздника 4) перевод текста с...
enderrock84
25.10.2020 22:07
Назовем число красивым, если оно является трехзначным, оканчивающимся на 2 или 3 и кратным 2. Напишите программу, определяющую, является ли введённое число красивым. Программа должна...
КатюшаШамец
31.01.2023 16:20
Определить номера наборов аргументов, на которых функция F=1...
Ketti08
08.09.2022 16:13
Чему равно наименьшее основание позиционной системы счисления x, при котором 488(x) = 904(y)?...
025858
15.08.2020 02:26
Определить логическую функцию F(A, B, C), соответствующую логической схеме...
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и 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.