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

Question

Информатика

Натан

26 сентября, 12:51

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

+5

Ответы (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.