一道简单的free pascal问题,高手来看一下。。
发布网友
发布时间：2天前
共1个回答
热心网友
时间：6分钟前
var x,i,j:integer;
begin
for i:=32 to 99 do
begin
x:=i*i;
for j:=1 to 8 do
if 1111*j<=x then
if sqr(trunc(sqrt(x-1111*j)))=x-1111 then writeln(i*i,'-',1111*j,'=',x-1111*j,'=',trunc(sqrt(x-1111*j)),'^2');
end;
end.
符合条件的数只有一个：3136-1111=2025=45^2
