Question

Написать программу которая будет выводить на экран 50 концентрических квадратов с центром в середине экрана (по размеру в смысле 1,2,3 и до 50) в pascalABC.net

Answer 1

uses GraphABC;

begin
  Window.SetSize(600,600);
  var (x,y):=(WindowWidth div 2,WindowHeight div 2);
  for var i:=1 to 50 do
   begin
   setpencolor(RGB(random(255),random(255),random(255)));
   DrawRectangle(x-5*i,y+5*i,x+5*i,y-5*i);
   end
end.

Пример - в прилагаемом файле.