pascal十分简单的sqrt问题sqrt(n)=sqrt(x)-sqrt(y)求解给出一个正整数n，求当x，y都为正整数，方程sqrt(n)=sqrt(x)-sqrt(y)的解中，x的最小值是多少？用pascal解决

Question

pascal 十分简单的sqrt问题 sqrt(n)=sqrt(x)-sqrt(y) 求解
给出一个正整数n，求当x，y都为正整数，方程
sqrt(n)=sqrt(x)-sqrt(y)
的解中，x的最小值是多少？

用pascal解决

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.