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

Question

Информатика

Нинуша

20 февраля, 18:08

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

+1

Ответы (1)

Знаете ответ?

Егорич · Answer 1

Program Task;

Uses GraphABC;

Var i: Integer;

Begin

SetPenColor (Color. CornflowerBlue) ;

For i : = 3 To 7 Do

DrawCircle (200, 200, i * 10) ;

End.