高校问答外教口语培训机构:pascal编程一题
来源：百度文库 编辑：高校问答 时间：2024/04/29 02:09:14
某整数X加上100就成为一个完全平方数，如果让X加上168就成为另一个完全平方数。求X
var i:longint;
begin
i:=1;
repeat
if (sqrt(i+100)=int(sqrt(i+100))) and (sqrt(i+168)=int(sqrt(i+168))) then begin
writeln(i);
break;
end;
i:=i+1;
until false;
end.
楼上的好象很乱啊
var i:longint;
begin
i:=0;
repeat
i:=i+1;
if (sqrt(i+100)=int(sqrt(i+100))) and (sqrt(i+168)=int(sqrt(i+168))) then begin
writeln(i);
i:=0;
end;
until i=0;
end.
var i:longint;
begin
i:=0;
repeat
i:=i+1;
if (sqrt(i+100)=int(sqrt(i+100))) and (sqrt(i+168)=int(sqrt(i+168))) then begin
writeln(i);
i:=0;
end;
until i=0;
end.
这个没错！我上机试调过，答案是：156
三行OK:
begin
writeln(156);
end.
用数学方法可以推出: