rendered paste body(* using: *)
UncleRound[x_] := 10^Floor[Log[10, x]]*Ceiling[x/10^Floor[Log[10, x]]]
Do[Do[If[a/b == UncleRound[a] - a - UncleRound[b], Print[a, ", ", b]], {a, 1, 1000}], {b, 1, 100}]
(* I got: *)
12, 2
132, 2
12, 6
252, 6
704, 8
165, 11
440, 11
715, 11
720, 12
260, 13
910, 13
168, 14
448, 14
728, 14
450, 15
825, 15
640, 16
170, 17
360, 18
171, 19
266, 19
361, 19
456, 19
551, 19
646, 19
741, 19
836, 19
931, 19
735, 21
260, 26
840, 28
261, 29
551, 29
841, 29
155, 31
930, 31
640, 32
544, 34
350, 35
740, 37
156, 39
351, 39
546, 39
741, 39
936, 39
440, 44
147, 49
245, 49
343, 49
441, 49
539, 49
637, 49
735, 49
833, 49
931, 49
530, 53
432, 54
825, 55
236, 59
531, 59
826, 59
915, 61
620, 62
128, 64
325, 65
621, 69
710, 71
316, 79
711, 79
405, 81
504, 84
801, 89