不存在,我已经挨个尝试过了。程序在下面(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.
无解啊。