Question

ПОМОГИТЕ нарисовать этот рисунок в паскале!! ОБЯЗАТЕЛЬНО ЧЕРЕЗ ЦИКЛ!!
Заранее спасибо

Answer 1

uses
    GraphABC;

const
    radius = 70;

var
    i, j, x, y: integer;

begin
    for i := 0 to 2 do
        for j := 0 to 2 do
        begin
            x := i * 3 * radius + radius;
            y := j * 2 * radius + radius;
            Brush.Color := clRed;
            FillPie(x, y, radius, 90, -90);
            Brush.Color := clBlue;
            FillPie(x, y, radius, 90, 270);
        end;
end.