����������: ������������� � �������.

������ � ������ ������.

������������ �������, ������� �������� ������� �������� � ������� ����� ��������� ������ � ������ ������: ��������� ����������� ��� ������� ����������� 8-�� ������ �� ��������� ����� 8 �� 8, ��� ������� ��� �� ���� ���� �����. ��� ������ ����� ������ 200 ��� ���� ����� ������� ��������� ������� �����. ��������, ��� � ���� �� ���� ����������, �� ��� �� ����� �� ��������� ����� ����� ��� 92 ����� �����������!

��������, �� ������ �� 8 ���������� ������ ������ �� �����. ������ ����� ����������� ����� ������������ ���������� ��������

��� X[i] - ����� ����������� ��� i-�� �����. ��������� ������� ��� ����� �� ����� ������ �� ����� ����������� (����� ��� ���� ���� �����), �� ��� X[i] ��������, �.�. �������� ������������ �� ����� 1..8. �����, �������, ��������� ��� 8! ����� ������������ � ������� ����� ��� �� 92, ������� ��� ����������. H� ����� 8!=40320 �������� �������.

������� �� ������������� ���������� �������� � ������� �����, ������� �������� ����������� ��������� ������� � ���� ����� ������� �������:

 program Queens;
   const N=8;
   type Index=1..N;
	Rasstanovka=array [Index] of 0..N;
   var X:Rasstanovka;
       Count:word;
   function P(var X:Rasstanovka;k,y:Index):boolean;
     var i:Index;
   begin
     i:=1;
     while (i<k)and(y<>X[i])and(abs(k-i)<>abs(y-X[i])) do inc(i);
     P:=i=k
   end;
   procedure Backtracking(k:Index);
     var i,y:Index;
   begin
     for y:=1 to N do
       if P(X,k,y) then
	 begin
	   X[k]:=y;
	   if k=N then
	     begin
	       for i:=1 to N do write(X[i]);writeln;inc(Count)
	     end;
	   Backtracking(k+1)
	 end
   end;
 begin
   Count:=0;
   writeln('����������� ',N,' ������:');
   Backtracking(1);
   writeln('����� ',Count,' �����������')
 end.

����� �� ��������, � ���������� � ���������.