Войти
Регистрация
Спроси ai-bota
В
Все
М
Математика
А
Английский язык
Х
Химия
Э
Экономика
П
Право
И
Информатика
У
Українська мова
Қ
Қазақ тiлi
О
ОБЖ
Н
Немецкий язык
Б
Беларуская мова
У
Українська література
М
Музыка
П
Психология
А
Алгебра
Л
Литература
Б
Биология
М
МХК
О
Окружающий мир
О
Обществознание
И
История
Г
Геометрия
Ф
Французский язык
Ф
Физика
Д
Другие предметы
Р
Русский язык
Г
География
Показать больше
Показать меньше
priss666
14.02.2021 06:25 •
Другие предметы
Найти все двузначные числа, которые делятся на n или содержат цифру n. (программа Паскаль)
Показать ответ
Ответ:
YlankinaAnastasiya
16.04.2019 23:00
program z1;
uses crt;
var a,b,c,n,i: integer;
begin
read (n);
for a:=1 to 9 do
for b:=0 to 9 do
if ((a*100+b) mod n=0) or (a=n) or (b=n)then write ((a*100+b*10+c):4);
end.
0,0
(0 оценок)
Популярные вопросы: Другие предметы
gay2002
30.12.2021 07:37
Проведена стерилизация хлопчатобумажного материала, уложенного в биксы, паровым методом. Режим стерилизации 2 атм. - 132 градусов С - 20 мин. Объясните ситуацию....
Sofia2224
31.01.2023 15:46
1. Підкресли ознаки, що характерні для пригодницького твору. Розвиток сюжету стрімкий, непередбачуваний; є різновидом усної на- родної творчості; містить численні таємниці,...
lailashihaeva
11.04.2022 23:24
Яке має бути взутя у бігунів...
mikalis
14.04.2020 12:22
1. Ссуда 800 000руб выдана 20.06.2018 по 10.10.2019 (невисокосные года) под 8% простых годовых. Какую сумму уплатит должник в конце срока? Решите задачу 3мя . Какой выгоднее...
адэли12
15.08.2021 19:45
Где действует сила тяжести Выбери верные утверждения.Верных ответов: 4Предмет, подброшенный вверх, улетит в атмосферу.На тела большей массы действует большая сила тяжести.Под...
Мика7477u
19.04.2021 14:26
Поговорите в вашей семье об умении быть благодарным, терпеливым. Составьте небольшойрассказ, используя эти слова....
ammaa09
26.10.2020 22:51
Когда произошли события, описанные в сказании, и кто тогда правил на Руси? по «Сказанию о белгородском киселе»...
Almast1
26.10.2020 22:51
В чем своеобразие и значение жанра летописи?...
спасибо88
26.10.2020 22:51
В чем видит Пимен свой долг? Пушкин «Борис Годунов»...
МарияЛобачева
26.10.2020 22:51
Какое произведение М. Ю. Лермонтова рассказывает о событиях Отечественной войны?...
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota
Оформи подписку
О НАС
О нас
Блог
Карьера
Условия пользования
Авторское право
Политика конфиденциальности
Политика использования файлов cookie
Предпочтения cookie-файлов
СООБЩЕСТВО
Сообщество
Для школ
Родителям
Кодекс чести
Правила сообщества
Insights
Стань помощником
ПОМОЩЬ
Зарегистрируйся
Центр помощи
Центр безопасности
Договор о конфиденциальности полученной информации
App
Начни делиться знаниями
Вход
Регистрация
Что ты хочешь узнать?
Спроси ai-бота
uses crt;
var a,b,c,n,i: integer;
begin
read (n);
for a:=1 to 9 do
for b:=0 to 9 do
if ((a*100+b) mod n=0) or (a=n) or (b=n)then write ((a*100+b*10+c):4);
end.