Cоставить программу вывода на экран 5 олимпийских колец разного цвета

Question

Информатика

Тонюня

6 сентября, 02:49

Cоставить программу вывода на экран 5 олимпийских колец разного цвета

+4

Ответы (1)

Знаете ответ на вопрос?

Антония · Answer 1

Uses graphabc;

var x, y, r:integer;

begin

setwindowsize (450,300) ;

setwindowtitle ('Олимпийские кольца') ;

setpenwidth (1) ;

setpencolor (clblue) ; x:=100; y:=100; r:=50; circle (x, y, r) ;

setpencolor (clblack) ; x:=220; y:=100; r:=50; circle (x, y, r) ;

setpencolor (clred) ; x:=340; y:=100; r:=50; circle (x, y, r) ;

setpencolor (clyellow) ; x:=150; y:=150; r:=50; circle (x, y, r) ;

setpencolor (clgreen) ; x:=270; y:=150; r:=50; circle (x, y, r) ;

end.