帮个忙,看我的程序那里错了
帮个忙,看我的程序那里错了。 要求找出符合(ab+cd)(ab+cd)=abcd的4位数。下面是我写的程序,怎么运行以后不输出符合条件的数字呢?
var
a,b,c,d,i,t:longint;
begin
for i:=1000 to 9999 do
begin
a:=i div 1000;
b:=i mod 1000 div 100;
c:=i mod 1000 mod 100 div 10;
d:=i mod 10;
t:=sqr(a*b+c*d);
if t=i then
writeln(i);
end;
readln;
end.