Листинг программы
program z51;
{ Получить все способы расстановки шести книг разных авторов. }
uses crt;
var k,i1,i2,i3,i4,i5,i6,i7,i8,m,fl:longint;
mm:string;
begin
clrscr;
for i1:=1 to 6 do
for i2:=1 to 6 do
for i3:=1 to 6 do
for i4:=1 to 6 do
for i5:=1 to 6 do
for i6:=1 to 6 do
begin
m:=i6+i5*10+i4*100+i3*1000+i2*10000+i1*100000;
str(m,mm);fl:=0;
for i7:=1 to 5 do
for i8:=i7+1 to 6 do
if mm[i7]=mm[i8]then fl:=1;
if fl=0 then begin write(m,' ');inc(k); end;
end;
write(' кол-во:',k);
readln;
end.