А понятно, советуйся!Добавлено (20.11.2008, 17:12)
---------------------------------------------
Seqular, Ну помоги с задачкой мне она к пятнице нужна! ПОЖАЛУСТА! 
Добавлено (21.11.2008, 18:08)
---------------------------------------------
ну от я зделал но не всьо правильно не все нули заменяет другими цыфрами!
Code
var
x:array[0..8,0..8] of byte;
a:array[0..8] of boolean;
i,j,z,p,n,t,k,m:longint;
begin
n:=81;
begin
for i:=0 to 8 do
for j:=0 to 8 do
begin
readln(x[i,j]);
end;
for i:=0 to 8 do
for j:=0 to 8 do
begin
if x[i,j]=0 then
begin
while n<>0 do
for p:=0 to 9 do
a[p]:=true;
for z:=0 to 8 do
a[x[i,z]]:=false;
for z:=0 to 8 do
a[x[z,j]]:=false;
for z:=(i div 3)*3 to (j div 3)*3+2 do
for t:=(j div 3)*3 to (j div 3)*3+2 do
a[x[z,t]]:=false;
k:=0;
for p:=0 to 9 do
if a[p]=true then begin inc(k); m:=p; end;
if k=1 then x[i,j]:=m;
n:=0;
end;
end;
end;
for i:=0 to 8 do
begin
for j:=0 to 8 do
write(x[i,j]:2);
end;
end.
Seqular, Alexandr , Помогите доделать пожалуста!
