Предмет: Информатика,
автор: 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.
Интересные вопросы
Предмет: Другие предметы,
автор: zaprudino104
Предмет: География,
автор: Аноним
Предмет: Русский язык,
автор: Аноним
Предмет: Математика,
автор: dariyacherdgen
Предмет: Химия,
автор: irati