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

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

Задать свой вопрос
Tatjana Gapusevich
На каком языке писать программу?
Игорек Балуш
Pascal
Ирина Поникаревич
Turbo, Free, ABC, Lazarus, Delphi или ABC.NET ?
Пащинин Витя
ABC.NET
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.
Aleksej Shamshin
Благодарю Вас)
, оставишь ответ?
Имя:*
E-Mail:


Добро пожаловать!

Для того чтобы стать полноценным пользователем нашего портала, вам необходимо пройти регистрацию.
Зарегистрироваться
Создайте собственную учетную запить!

Пройти регистрацию
Авторизоваться
Уже зарегистрированны? А ну-ка живо авторизуйтесь!

Войти на сайт