Question

Написать программу , которая выводит изображенный ниже узор . В программе должны быть комментарии , поясняющие принцип работы .

Answer 1

// PascalABC.NET 3.2, сборка 1485 от 15.06.2017
// Внимание! Если программа не работает, обновите версию!

uses GraphABC;

begin
  Pen.Width:=3;
  Brush.Color:=ARGB(0,0,0,0); // прозрачная кисть
  for var i:=0 to 3 do
    for var j:=0 to 2 do
      Rectangle(20+140*i,20+140*j,150+140*i,150+140*j); //4x3 квадрата
  for var i:=0 to 2 do
    for var j:=0 to 1 do
      Rectangle(90+140*i,90+140*j,220+140*i,220+140*j); //3x2 квадрата
end.