Ответы на вопрос:
1. если слово из 2-х букв
var a,b: char; beginreadln(a,b); writeln(a,b); writeln(b,a); writeln(a,a); writeln(b,b); end.
2, если не из двух букв
тут сначала вводится n - максимальная длина слова, а уже потом 2 буквы
var a,b: char; n: integer; procedure gen(i: integer; s: string); beginif i> n then exit; if i< > 0 then writeln(s); gen(i+1,s+a); gen(i+1,s+b); end; beginreadln(n); readln(a,b); gen(0,''); end.
Реши свою проблему, спроси otvet5GPT
-
Быстро
Мгновенный ответ на твой вопрос -
Точно
Бот обладает знаниями во всех сферах -
Бесплатно
Задай вопрос и получи ответ бесплатно
Популярно: Информатика
-
STPcopy07.06.2023 01:02
-
Lãkomkã0117.08.2020 09:12
-
8алина8202.03.2023 01:10
-
alsumamadaliev08.11.2021 00:18
-
Anabella9817.06.2021 10:16
-
lluukkaa27.02.2020 16:39
-
yuliyayulyafe26.08.2020 08:26
-
ковязин1406.01.2022 19:09
-
diana2007ru21.07.2022 02:33
-
jixeli01.04.2021 14:06
Есть вопросы?
-
Как otvet5GPT работает?
otvet5GPT использует большую языковую модель вместе с базой данных GPT для обеспечения высококачественных образовательных результатов. otvet5GPT действует как доступный академический ресурс вне класса. -
Сколько это стоит?
Проект находиться на стадии тестирования и все услуги бесплатны. -
Могу ли я использовать otvet5GPT в школе?
Конечно! Нейросеть может помочь вам делать конспекты лекций, придумывать идеи в классе и многое другое! -
В чем отличия от ChatGPT?
otvet5GPT черпает академические источники из собственной базы данных и предназначен специально для студентов. otvet5GPT также адаптируется к вашему стилю письма, предоставляя ряд образовательных инструментов, предназначенных для улучшения обучения.