Математическая задачка 

Nikman писал : Даны цифры от 1 до 9 (1,2,3,4,5,6,7,8,9) Составить равенство, чтобы каждая цифра была использована только 1 раз ХХ*Х=ХХХ=Х*ХХ

L = Permutations[Table[i, {i, 1, 9}]];
For[i = 1, i <= Length[L], i++,
s = L[[i]];
xxx = 100 s[[4]] + 10 s[[5]] + s[[6]];
If[((10 s[[1]] + s[[2]]) s[[3]] == xxx) && (xxx ==
s[[7]] (10 s[[8]] + s[[9]])), Print[s]];
];

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

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

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

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

А без программирования можно решить сию задачу? Просто мне эту задачу рассказал школьник . Грит у них на математике была такая задачка. А насколько я помню на матемсатике в школе не учат программировать.

Школа поди мехмат?

bouchon писал(а) ? : ...

перебором не элегантное решение ))))