Составьте программу которая рисует 10 окружностей разного цвета разных радиусов с одним центром?

Question

Лев Горшков

Информатика

24 января, 20:50

Составьте программу которая рисует 10 окружностей разного цвета разных радиусов с одним центром?

+5

Ответы (1)

Знаешь ответ на этот вопрос?

Никита Егоров · Answer 1

uses GraphABC;

begin

SetBrushColor (clMagenta);

Circle (150, 150, 150);

SetBrushColor (clCyan);

Circle (150, 150, 140);

SetBrushColor (clLightCyan);

Circle (150, 150, 130);

SetBrushColor (clRed);

Circle (150, 150, 120);

SetBrushColor (clYellow);

Circle (150, 150, 110);

SetBrushColor (clGray);

Circle (150, 150, 100);

SetBrushColor (clBlack);

Circle (150, 150, 90);

SetBrushColor (clGreen);

Circle (150, 150, 80);

SetBrushColor (clLightBlue);

Circle (150, 150, 70);

SetBrushColor (clWhite);

Circle (150, 150, 60);

end.