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

Question

Информатика

Нинуля

7 сентября, 20:19

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

+5

Ответы (1)

Знаете ответ?

Жора · Answer 1

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.