Question

Нарисовать вложенные квадраты (3-5) разного цвета. Размер стороны большого квадрата взять равным 300 пикселей. Программа Pascal ABC.

Answer 1

Program Kvadrat;

uses Graphabc;

begin

SetWindowWidth(800);

SetWindowHeight(800);

SetPenWidth(3);

Rectangle(200, 200, 500, 500);

Rectangle(230, 230, 470, 470);

Rectangle(260, 260, 440, 440);

Rectangle(290, 290, 410, 410);

Rectangle(320, 320, 380, 380);

SetBrushColor(clAqua);

FillRect(200, 200,500,500);

SetBrushColor(clBrown);

FillRect(230, 230,470,470);

SetBrushColor(clAqua);

FillRect(260, 260,440,440);

SetBrushColor(clBrown);

FillRect(290, 290,410,410);

SetBrushColor(clAqua);

FillRect(320, 320,380,380);

end.