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

Question

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

Comments

Укажите язык.

---

Pascal ABC

Answer 1

//PascalABC.NET 3.2 сборка 1318

uses
  GraphABC;

Var
  i:integer;
begin
  for i:=5 downto 1 do
      circle(60,60,i*10);
end.

Answer 2

предлагаю решение на Бейсике

for r=10 to 50 step 10

circle (200,200),r,5

next r