Составить программу закрашивания прямоугольника размером 6x4

Question

Составить программу закрашивания прямоугольника размером 6x4

Answer 1

//PascalABC.NET
uses GraphABC;
begin
//Высота = 4, ширина = 6, шаг = 50px
Rectangle(50, 50, 350, 250);
FloodFill(110, 110, clTeal);
end.


//Вариант №2 с разметкой
uses GraphABC;
var tmp, i: integer;
begin
//Высота = 4, ширина = 6, шаг = 50px
Rectangle(50, 50, 350, 250);
FloodFill(110, 110, clTeal);
tmp := 50;
for i := 1 to 3 do
begin
  Line(50, 50+tmp, 350, 50+tmp);
  tmp := tmp + 50;
end;
tmp := 50;
for i := 1 to 5 do
begin
  Line(50+tmp, 50, 50+tmp, 250);
  tmp := tmp + 50;
end;
end.

---

---

Answer 2

. Составьте программу закрашивания буквы "П", размерами три клетки по вертикали и две по горизонтали. Начальное положение Робота - где-то в центре поля.

2. Необходимо перевести Робота из начального положения (◊) в точку A за минимальное число шагов любым из возможных способов.