Предмет: Информатика, автор: iwan2010

Составить программу, которая рисует 5 окружностей голубого цвета с центром в пункте (200, 200) и радиусами 30, 40, 50, 60, 70

Ответы

Автор ответа: preceptor
0
Program Task;
Uses GraphABC;
Var i: Integer;
Begin
SetPenColor(Color.CornflowerBlue);
For i := 3 To 7 Do
DrawCircle(200, 200, i * 10);
End.
Похожие вопросы
Предмет: Алгебра, автор: kotkota