12*345=6789.....not true
9*1234=8765.....not true

Can you list 9 basic permutations of the 9 distinct non-zero digits ,and "*" & "=" signs that create true statements?

   10   S$="123456789":H$=S$
   15   repeat
   20    gosub *Permute(&S$)
   25         A=val(left(S$,1)):B=val(mid(S$,2,4)):C=val(right(S$,4))
   26         if A*B=C then print A,B,C
   35         A=val(left(S$,2)):B=val(mid(S$,3,3))
   36         if A*B=C then print A,B,C
   90   until S$=H$
  140   end

finds

multiplicands   product
 12      483     5796
 18      297     5346
 27      198     5346
 28      157     4396
 39      186     7254
 4       1738    6952
 4       1963    7852
 42      138     5796
 48      159     7632

Posted by Charlie on 2010-12-16 17:32:56