查人人中国名人网东风导弹能飞多高:一道pascal题目,谁来帮我下
来源：百度文库 编辑：查人人中国名人网 时间：2024/04/29 05:10:18
某整数X加上100就成为一个完全平方数,如果让X加上168 就成为另一个完全平方数。求X?
var
i,x,y:integer; {设x+100=i*i；x+168=y，用i来循环}
begin
i:=10;
while true do {设置一个循环，中途找到结果后再退出}
begin
x:=i*i-100;
y:=x+168;
if trunc(sqrt(y))*trunc(sqrt(y))=y then
begin
writeln(x);
break; {找到结果，退出循环}
end;
inc(i);
end;
end.
运行结果：
156