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

Question

Информатика

Донат

26 марта, 14:48

Составить программу, которая рисует 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.