4
4、编程找出四位整数ABCD中满足下述关系的数:
(AB+CD)(AB+CD)=ABCD 例如:(20+25)×(20+25)=2025
(参考答案:2025、3025、9801)
var
i:integer;
begin
for i:=1000 to 9999 do
if sqr((i div 100)+(i mod 100))=i then
writeln(i);
readln
end.}
var
q,h:integer;
begin
for q:=10 to 99 do
for h:=01 to 99 do
if sqr(q+h)=100*q+h then
writeln(100*q+h);
readln
end.