Question

Напишите код в программе Pascal, чтобы получился рисунок олимпийских колец, как на картинке. Буду очень благодарен, кто сделает!

Answer 1

Ответ:

uses graphABC;

Begin

Setbrushstyle(bsClear);

SetPenWidth(13);

SetPenColor(clBlue);

Circle (140,200,100);

SetPenColor(clBlack);

Circle (320,200,100);

SetPenColor(clRed);

Circle (500,200,100);

SetPenColor(clYellow);

Circle (240,315,100);

SetPenColor(clGreen);

Circle (420,315,100);

SetPenColor(clBlue);

Arc(140,200,100,-17,90);

SetPenColor(clBlack);

Arc(320,200,100,180,200);

SetPenColor(clBlack);

Arc(320,200,100,-15,90);

SetPenColor(clRed);

Arc(500,200,100,180,270);

SetPenColor(clYellow);

Arc (240,315,100,0,45)

end.

Объяснение:

картинка