Листинг программы

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.