[mAnah]

№3:

Код:

Program geronloh;
Const
eps=0.001;
Var
x:Array[1..100] of integer;
i,b:integer;
y,z:real;

function geron4ik(b:integer;y:real):real;
begin
  while (geron4ik(b,y)-geron4ik(b,y-1)>=eps) do
  geron4ik:=(geron4ik(b,y-1)+b/geron4ik(b,y-1))/2;
end;

Begin
randomize;
for i:=1 to 100 do                  begin
x[i]:=random(102); b:=x[i];
y:=(1+b)/2;
geron4ik(b,y);
{while}                             end;

{readln(i);
for i:=1 to 100 do writeln(x[i])}
End.

Переполнение стека...( Как правильно организовать рекурсию?