Цикл с предусловием(Pascal)

[Victoriya1]

Здравствуйте!Помогите,пожалуйста, написать программу для решения следующей задачи

[ViktorR]

У меня получилось так:

k := 99;
r := 0;
While k >=3 do
begin
   r := sqrt(k + sqrt(r));
   k := k - 3;
end;

Как-то так, ...

[Stilet]

function asqr(x:integer):Double;
begin
 if x<99 then asqr:=sqrt(x+asqr(x+3)) else asqr:=x;
end;

begin write(asqr(3)); end.

[Аватар]

r := sqrt(k + sqrt(r));

r := sqrt(k + r);

[type_Oleg]

Не, вот так наверное

    r := sqrt(k + r);

Не успел..

Stilet, ему надо цикл с предусловием, а у тебя - рекурсия.

[Stilet]

Тю... Сорри )

[Victoriya1]

спасибо большое за помощь)

[Victoriya1]

type_Oleg, я-девушка:D

[type_Oleg]

Mille pardon, я по привычке.