Составьте программу рисования окружностей с центром в точке(200,200) и радиусами...

Question

Составьте программу рисования окружностей с центром в точке(200,200) и радиусами 10,20,30,40,50 ( примените команду "for")!!!

Answer 1

Uses
  GraphABC;
  
var
  i: integer;

begin
  for i := 10 to 50 do
    if (i mod 10 = 0) then
      DrawCircle(200, 200, i);
end.

Comments

пишет неизвестный индефекатор DrawCircle

---

PascalABC.NET, работает...

---

circle попробуйте вместо drawcircle