Задать вопрос
14 марта, 21:29

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

+3
Ответы (1)
  1. 14 марта, 23:17
    0
    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.
Знаете ответ?
Сомневаетесь в ответе?
Найдите правильный ответ на вопрос ✅ «Cоставить программу вывода на экран 5 олимпийских колец разного цвета ...» по предмету 📘 Информатика, а если вы сомневаетесь в правильности ответов или ответ отсутствует, то попробуйте воспользоваться умным поиском на сайте и найти ответы на похожие вопросы.
Смотреть другие ответы