Question

Нарисовать круг синего/красного/желтого/зеленого цвета, в зависимости от его расположения в 1-4 четвертях окна 200х200 пикселей. (В Паскале)

Answer 1

Программа:

{https://znanija.com/task/43090055

<c> NaaMan}

program test;

 uses GraphABC;

begin

 Window.Init(700,300,200,200);

 for var i := 0 to 1 do

   for var j := 0 to 1 do begin

     SetBrushColor(RGB(255*i,255*j,127));

     FillCircle(i*100+50, j*100+50,50);

   end;

end.

Результат выполнения: