program r; const n=20; var mas:array [0..n,0..n] of byte; i,j,g,m,a,x1,y1,x2,y2,maxx,maxy,minx,miny:integer; begin
readln (a); for i:=1 to n do for j:=1 to m do mas[i,j]:=0;
for g:=1 to a do begin Readln (x1,y1,x2,y2); if x1>x2 then begin maxX:=x1;minX:=x2;end else begin maxX:=x2; minX:=x1; end; if y1>y2 then begin maxY:=y1;minY:=y2;end else begin maxY:=y2; minY:=y1;end;
m:=0; for i:=miny+1 to maxy do for j:=minx+1 to maxx do if mas[i,j]=0 then begin mas [i,j]:=1;m:=m+1;end; for i:=1 to n do begin for j:=1 to n do write (mas[i,j]); writeln; end; writeln (m);
Sub Ìàêðîñ1() Dim Sum(heigth - 1, width - 1) Dim Product(heigth - 1, width - 1)
For i = 0 To heigth - 1 For j = 0 To width - 1 Sum(i, j) = i + j Product(i, j) = i * j Next j Next i
Call Show(Sum, 0, 0) Call Show(Product, 0, 12) End Sub
Sub Show(ByRef m, dx, dy) For i = 0 To heigth - 1 For j = 0 To width - 1 ActiveSheet.Cells(dx + i + 1, dy + j + 1).Value = Hex(m(i, j)) Next j Next i End Sub
program r;
const n=20;
var mas:array [0..n,0..n] of byte;
i,j,g,m,a,x1,y1,x2,y2,maxx,maxy,minx,miny:integer;
begin
readln (a);
for i:=1 to n do
for j:=1 to m do
mas[i,j]:=0;
for g:=1 to a do
begin
Readln (x1,y1,x2,y2);
if x1>x2 then begin maxX:=x1;minX:=x2;end
else begin maxX:=x2; minX:=x1; end;
if y1>y2 then begin maxY:=y1;minY:=y2;end
else begin maxY:=y2; minY:=y1;end;
m:=0;
for i:=miny+1 to maxy do
for j:=minx+1 to maxx do
if mas[i,j]=0 then begin mas [i,j]:=1;m:=m+1;end;
for i:=1 to n do
begin
for j:=1 to n do
write (mas[i,j]);
writeln;
end;
writeln (m);
end;
end.
Const width = 10
Sub Ìàêðîñ1()
Dim Sum(heigth - 1, width - 1)
Dim Product(heigth - 1, width - 1)
For i = 0 To heigth - 1
For j = 0 To width - 1
Sum(i, j) = i + j
Product(i, j) = i * j
Next j
Next i
Call Show(Sum, 0, 0)
Call Show(Product, 0, 12)
End Sub
Sub Show(ByRef m, dx, dy)
For i = 0 To heigth - 1
For j = 0 To width - 1
ActiveSheet.Cells(dx + i + 1, dy + j + 1).Value = Hex(m(i, j))
Next j
Next i
End Sub