Предмет: Информатика,
автор: iwan2010
Составить программу, которая рисует 5 окружностей голубого цвета с центром в пункте (200, 200) и радиусами 30, 40, 50, 60, 70
Ответы
Автор ответа:
0
Program Task;
Uses GraphABC;
Var i: Integer;
Begin
SetPenColor(Color.CornflowerBlue);
For i := 3 To 7 Do
DrawCircle(200, 200, i * 10);
End.
Uses GraphABC;
Var i: Integer;
Begin
SetPenColor(Color.CornflowerBlue);
For i := 3 To 7 Do
DrawCircle(200, 200, i * 10);
End.
Похожие вопросы
Предмет: Математика,
автор: stanumkyl9718
Предмет: История,
автор: alinagalieva69
Предмет: Английский язык,
автор: sudonyakhabibi
Предмет: Алгебра,
автор: kotkota