Я решала с программирования.Составила программу
Program pic;Var k,o,t:integer;beginFor k:=1 to 9 dofor t:=1 to 9 dofor o:=1 to 9 doif (100*k+10*o+t)-k=100*k+10*t+o then writeln(100*k+10*o+t,'-',k,'=',100*k+10*t+o);readln;end.
Получились ответы:
921-9=912
932-9=923
943-9=934
954-9=945
965-9=956
976-9=967
987-9=978
