Разработайте программу, которая запрашивает две буквы, а затем печатает все варианты слов с - №1518584

Разработайте программу, которая запрашивает две буквы, а затем печатает все варианты слов с использованием введённых букв (буквы могут повторяться, а слова могут не иметь смысла. Например, «аа» – считается тоже словом).Только как в турбо паскале пожалуйста
- Предмет:
  Информатика
- Автор:
  rogelioasg0
- 6 лет назад

Ответы 1

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.
- Автор:
  irisleon
- 6 лет назад
- 0
Добавить свой ответ

Еще вопросы

How much to ban the user?

1 hour 1 day 100 years