Выходные: вывести на екран все возможные комбинации букв входной строки.
Пример:
строка - абв
Результат - абв, авб, бав, бва, ваб, вба
Не получается никак сделать общий вариант - для неизвестной длинны входной строки. Вот пример для пятисимвольной.
uses crt;
var i,j,k,n,m:byte;
word,buf,s:string;
num:integer;
begin
clrscr;
writeln('Enter word');
readln(word);
writeln('Result:');
num:=0;
for i:=1 to 5 do
for j:=1 to 5 do
if j<>i then
for k:=1 to 5 do
if (k<>i) and (k<>j) then
for n:=1 to 5 do
if (n<>i) and (n<>j) and (n<>k) then
for m:=1 to 5 do
if (m<>i) and (m<>j) and (m<>k) and (m<>n) then
begin
buf:=word[i]+word[j]+word[k]+word[n]+word[m];
writeln(buf);
inc(num);
end;
writeln('Finish');
writeln('Number of combination is ',num);
readln;
end.
Сообщение отредактировано: Bokul -