Ответы на вопрос:
Uses crt; var n,d,x,a,k: integer; begin write('n: '); readln(n); write('d: '); readln(d); for x: =round(power(10,n-1)) to round(power(10,n)-1) do begin a: =x; k: =0; while a> 0 do begin if a mod 10=d then inc(k); a: =a div 10; end; if k=0 then write(x,' '); end; end.
Реши свою проблему, спроси otvet5GPT
-
Быстро
Мгновенный ответ на твой вопрос -
Точно
Бот обладает знаниями во всех сферах -
Бесплатно
Задай вопрос и получи ответ бесплатно
Популярно: Информатика
-
bayramovameyra26.05.2021 19:38
-
TTLoXoIMalchik12.08.2022 01:47
-
gabdrahmanova95109.11.2021 12:10
-
Snake50521.01.2021 16:34
-
фFantom20.12.2022 03:40
-
зюзенька04.01.2021 20:17
-
Vladosik098716.06.2021 09:34
-
283927518.10.2020 10:08
-
Самира27110631.01.2021 04:12
-
xenyazhardin02.04.2023 13:49
Есть вопросы?
-
Как otvet5GPT работает?
otvet5GPT использует большую языковую модель вместе с базой данных GPT для обеспечения высококачественных образовательных результатов. otvet5GPT действует как доступный академический ресурс вне класса. -
Сколько это стоит?
Проект находиться на стадии тестирования и все услуги бесплатны. -
Могу ли я использовать otvet5GPT в школе?
Конечно! Нейросеть может помочь вам делать конспекты лекций, придумывать идеи в классе и многое другое! -
В чем отличия от ChatGPT?
otvet5GPT черпает академические источники из собственной базы данных и предназначен специально для студентов. otvet5GPT также адаптируется к вашему стилю письма, предоставляя ряд образовательных инструментов, предназначенных для улучшения обучения.