Question

Задание на фото. Написать программу, которая рисует 3 квадрата.( Pascal abc

Answer 1

                                            PascalABC.NET

Так как фото нету, значит надо просто нарисовать 3 квадрата - сделал 2 варианта.

1)

uses GraphABC;

begin

 for var i := 1 to 3 do begin

   Brush.Color := clrandom;

   rectangle(50*i,50*i,150*i,150*i)

   end;

end.

2)

uses GraphABC;

begin

 var x := 0;

 for var i := 1 to 3 do begin

   brush.Color := clrandom;

   rectangle(50+x,50,150+x,150);

   x +=150;

   end;

end.