小学奥数读本（四年级），P18第8(3)题

小学奥数读本（四年级），P18第8(3)题。

var
  i,j:longint;
  sa,sb:string;
  c:char;
begin
  for i:=12345 to 98765 do begin
    str(i,sa);
    for j:=2 to 9 do begin
      str(i*j,sb);
      if( i*j<99999 ) then begin
        c:=sb[1]; sb[1]:=sb[5]; sb[5]:=c;
        c:=sb[2]; sb[2]:=sb[4]; sb[4]:=c;
        if(sa=sb) then writeln(i,'*',j,'=',i*j);
      end;
    end;
  end;
end.

得：21978*4=87912。