рекурсия вроде бы Опции

[Sensitive]

Подскажите такое задание решается с помощью рекурсии или как-то по-другому?
(Построить окружность вокруг которой расположено 8 окружностей меньшего радиуса,и вокруг каждой из этих окружностей расположено еще по 8 окружностей также меньшего радиуса и т.д.)

[Lapp]

решается с помощью рекурсии или как-то по-другому?

Конечно, рекурсия. То есть можно и по-другому - но зачем? Только определись с моментом остановки, иначе она "уйдет в себя"..

Вот, примерно так:

procedure Circles(x,y,r:integer);
begin
  if r>0 then begin
    Circle(x,y,r);
    for i:=1 to 8 do Circles({тут вычисленные значения центров и рудиусов})
  end
end;