那里错了?

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 条评论

目前还没有评论...

信息

ID
1335
难度
4
分类
模拟 点击显示
标签
递交数
5142
已通过
1987
通过率
39%
被复制
20
上传者