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.