不存在,我已经挨个尝试过了.程序在下面(Pascal) 除非你希望东南西北都=0 var d,n,x,b:byte; begin writeln; for d:=1 to 9 do for n:=0 to 9 do for x:=1 to 9 do for b:=0 to 9 do begin if( (d*10+n)*(x*10+b)=(((x*10+n)*10+d)*10+b) ) and ( (d*10+b)*(x*10+n)=(((d*10+n)*10+x)*10+b) )then writeln(d:2,n:2,x:2,b:2); end; end.