小中学校範囲の算数・数学の問題のスレ　Part 61

>>792
Wolframに探索させる。

kuku=Union@Flatten@Table[a b,{a,1,9},{b,1,9}];
pm=Permutations[Range[9],{9}];
Select[pm,ContainsAll[kuku,10 #[[1;;8]]+ #[[2;;9]]]&]

{{7, 2, 8, 1, 6, 3, 5, 4, 9}}