END; FOR K

Bài 1:

end;

for k:=i to d do

Var f:text;

close(f);

for l:=j to c do a[k,l]:=0;

end;

a: array[1..100,1..100] of 0..1;

procedure tim;

td: array[1..4,1..100] of byte;

procedure vietfile;

n, dem: byte;

var

var i:byte;

procedure docfile;

i,j,k,l,d,c:byte;

begin

var i, j : byte; ch: char;

assign(f,'hcn.out');

for i:=1 to n do

fillchar(a,sizeof(a),0);

for j:=1 to n do

rewrite(f);

dem:=0;

if a[i,j]=1 then

writeln(f,dem);

assign(f,'hcn.inp'); reset(f);

begin

for i:=1 to dem do

readln(f,n);

inc(dem);

writeln(f,td[1,i],' ',td[2,i],'

td[1,dem]:=i;

',td[3,i],' ',td[4,i]);

td[2,dem]:=j;

for j:=1 to n do

d:=i; c:=j;

begin

while (d<n) and (a[d+1,j]=1)

BEGIN

do inc(d);

read(f,ch);

docfile;

while (c<n) and (a[i,c+1]=1)

if ch= '1' then a[i,j]:= 1;

tim;

end;

vietfile;

do inc(c);

END.

readln(f);

td[3,dem]:=d; td[4,dem]:=c;