Как нарисовать олимпийские кольца в PascalABC?

Как нарисовать олимпийские кольца в PascalABC?
Гость
Ответ(ы) на вопрос:
Гость
uses graphabc; var x,y:integer; begin x:=100; y:=100; setpenwidth(8); setpencolor(clBlue); drawcircle(x,y,50); inc(x,110); SetPenColor(clBlack); Drawcircle(x,y,50); inc(x,110); SetPenColor(clred); Drawcircle(x,y,50); inc(y,65); dec(x,165); SetPenColor(clyellow); Drawcircle(x,y,50); inc(x,110); SetPenColor(clgreen); Drawcircle(x,y,50); inc(x,110); end.
Не нашли ответ?
Ответить на вопрос
Похожие вопросы