Размещено 5 лет назад по предмету
Информатика
от setoburih
Задача нарисовать 50 концентрических окружностей с точкой в центре.
Паскаль рисует только одну окружность, помогите
Вот код:
uses graphABC;
var r,y,x: integer;
begin
setwindowSize(800,600);
y:=300;
x:=400;
for r:=1 to 50 do
circle(x,y,r);
end.