- 数独验证
- 2009-02-13 22:00:32 @
program zx00;
var
a:array[1..9,1..9] of integer;
b,c,i,n,m,l,j,p,x,z:integer;
pan:array[1..9] of boolean;
begin
readln(n);
for j:=1 to n do
begin
for b:=1 to 9 do
begin
for c:=1 to 9 do
read(a);
readln;
end;
repeat
b:=b+1;
p:=0;
for m:=1 to 9 do
pan[m]:=false;
for c:=1 to 9 do
begin
i:=a;
pan[i]:=true;
end;
for m:=1 to 9 do
if pan[m]=true then p:=p+1;
until (p
0 条评论
目前还没有评论...