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.
// PascalABC.NET 3.0, сборка 1144 от 16.01.2016
begin
var d:=ReadInteger('n=') mod 10;
Writeln(d,#13#10,sqr(d));
end.
<u><em>Тестовое решение:</em></u>
n= 346427
7
49
Int A[6];
bool B = false;
for(int i = 0; i < sizeof(A); i++) {
A[i] = random(6);
if(i > 0 && A[i-1] == A[i])
B = true;
}
cout << "Массив: " << A[0] << A[1] << A[2] << A[3] << A[4] << A[5] << endl;
if(B == true)
cout << "Есть" << endl;
else
cout << "Нет" << endl;