Question

Помогите Срочно!!!!!!!ПОЖАЛУЙСТА!!!Начертите фигуру изображённую на рисунке,используя алгоритм с циклом

Answer 1

                                        PascalABC.NET

uses GraphABC;

begin

 var (x1,x2,y1,y2) := (0,100,0,100);

 for var i := 1 to 5 do begin

   rectangle(x1,y1,x2,y2);

   (x1,x2,y1,y2) := (x1 + 100, x2 + 100, y1 + 50, y2 + 50);

   end;

end.