Question

pascal语言问题

给出一个正整数n（1<n<=2^31-1），求当x，y都为正整数，方程
sqrt(n)=sqrt(x)-sqrt(y)
的解中，x的最小值是多少？

输入文件（sqrt.in）
一行，一个正整数n

输出文件（sqrt.out）
一行，一个满足条件的最小的x的解。

样例：

input
4

output
9
这样超时啊，要效率高点的

Answer 1

program asd;
var
i,j,n,min:longint;
begin
read(n);
min:=9999;
for i:=1 to n*n do
for j:=1 to i do
if trunc(sqrt(i))-trunc(sqrt(j))=trunc(sqrt(n)) then
if i<min then begin min:=i; end;
write(min);
readln;
readln;
end.

Answer 2

var
i,j,n,min:longint;
begin
read(n);
min:=9999;
for i:=1 to n*n do
for j:=1 to i do
if trunc(sqrt(i))-trunc(sqrt(j))=trunc(sqrt(n)) then
if i<min then begin min:=i; end;
write(min);
readln;
readln;
end.
就这样！

Answer 3

穷举一下完全平方数不就行了吗