Question

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

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.