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;
Bạn đang xem bài 1: - DE THI HSG TIN 11 CO DAP AN