程序（PASCAL）const max=8;var i,j:integer;a:array[1..max] of 0..max; {放皇后数组}b:array[2..2*max] of boolean;{/对角线标志数组}c:array[-(max-1)..max-1] of boolean; {\对角线标志数组}col:array[1..max] of boolean; {列标志数组}total:integer;{统计总数}procedure output; {输出}var i:integer;begin
write('No.':4,'[',total+1:2,']'); ...
