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

Question

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

Answer 1

 1. если слово из 2-х букв

var a,b:char;
begin
readln(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);
begin
if i>n then exit;
if i<>0 then writeln(s);
gen(i+1,s+a);
gen(i+1,s+b);
end;
begin
readln(n);
readln(a,b);
gen(0,'');
end.