Question

Нужно нарисовать 8 окружностей в Паскале.Первая окружность радиусом 10. Окружности должны находиться одна в другой.Важно! Рисовать нужно от меньшей окружности к большей​

Answer 1

uses graphabc;

begin

setwindowsize(300,300);

Arc(150,150,10,0,360);

Arc(150,150,20,0,360);

Arc(150,150,30,0,360);

Arc(150,150,40,0,360);

Arc(150,150,50,0,360);

Arc(150,150,60,0,360);

Arc(150,150,70,0,360);

Arc(150,150,80,0,360);

Arc(150,150,90,0,360);

Arc(150,150,100,0,360);

Arc(150,150,110,0,360);

end.