Jay-Chan 2010-07-24 16:11:00
点我顶贴
收藏
删除
明明在自己机子上可以通过的,到这里就通不过了,大家帮忙看看怎么一回事?
var i,j,m,n,k,t:longint; a:array[1..9,1..9] of integer; b,c:array[1..27]of int64;
begin
k:=1;
for i:=1 to 9 do
for j:=1 to 9 do
read(a[i,j]);
for i:=1 to 27 do b[i]:=0;
for i:=1 to 9 do c[i]:=1;
for i:=1 to 9 do
begin
for j:=1 to 9 do begin
b[j]:=a[i,j]+b[j];
c[j]:=a[i,j]*c[j];
end;
end;
for i:=1 to 9 do
begin
for i:=1 to 9 do begin
b[i+1]:=a[i,j]+b[i+9];
c[i+9]:=a[i,j]*c[i+9];
end;
end;
for t:=19 to 27do
n:=1;
m:=1;
for i:=n to (n+2) do
begin
for j:=m to (m+2) do
begin
b[t]:=a[i,j]+b[t];
end;
m:=m+3;
end;
n:=n+3;
for i:=1 to 27 do
if (b[i]<>45) then begin k:=k-1; break;
end;
for i:=1 to 18 do if (c[i]<>362880) then begin k:=k-1;break; end;
if k=1 then write(1)else write(0);
readln;
readln;
end.