var
a11,a12,a13,a14,a21,a22,a23,a24,a31,a32,a33,a34,a41,a42,a43,a44:longint;
m,n,k:longint;
begin
m:=0;
n:=0;
for a11:=0 to 1 do for a12:=0 to 1 do for a13:=0 to 1 do for a14:=0 to 1 do
for a21:=0 to 1 do for a22:=0 to 1 do for a23:=0 to 1 do for a24:=0 to 1 do
for a31:=0 to 1 do for a32:=0 to 1 do for a33:=0 to 1 do for a34:=0 to 1 do
for a41:=0 to 1 do for a42:=0 to 1 do for a43:=0 to 1 do for a44:=0 to 1 do
begin
if a11+a12+a13+a14+a21+a22+a23+a24+a31+a32+a33+a34+a41+a42+a43+a44<>8 then continue else m:=m+1;
if ((a11+a12+a13+a14) mod 2=0)and ((a21+a22+a23+a24) mod 2=0)and((a31+a32+a33+a34) mod 2=0)and((a41+a42+a43+a44) mod 2=0)and
((a11+a21+a31+a41) mod 2=0)and((a12+a22+a32+a42) mod 2=0)and((a13+a23+a33+a43) mod 2=0)and((a14+a24+a34+a44) mod 2=0) then n:=n+1;
end;
writeln(n,' ',m);
end.
输出结果是246 12870 正好是你的答案41/2145. |