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

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

Задать свой вопрос
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.
, оставишь ответ?
Имя:*
E-Mail:


Добро пожаловать!

Для того чтобы стать полноценным пользователем нашего портала, вам необходимо пройти регистрацию.
Зарегистрироваться
Создайте собственную учетную запить!

Пройти регистрацию
Авторизоваться
Уже зарегистрированны? А ну-ка живо авторизуйтесь!

Войти на сайт