Question

pascal 十分简单的sqrt问题 sqrt(n)=sqrt(x)-sqrt(y) 求解

Answer 1

{$N+}

var n,x:longint; y:double;

begin

readln(n);

x:=n+1;

y:=sqr(sqrt(x)-sqrt(n));

while abs(int(y)-y)>1e-6 do

begin

inc(x);

y:=sqr(sqrt(x)-sqrt(n));

end;

writeln(x);

end.