Question

составьте программу которая имитирует движение жёлтого круга по диагонали​

Answer 1

Ответ:

uses graphabc;

begin

 window.Init(0, 0, 600, 600, clwhite);

 window.IsFixedSize := true;

 pen.Width := 3;

 pen.Color := clblue;

 lockdrawing;

 for var i := 1 to 560 do

 begin

   drawcircle(20 + i, 20 + i, 20);

   redraw;

   window.Clear;

 end;

end.

Объяснение: