Математическая задачка
Создана: 20 Января 2012 Птн 19:38:38.
Раздел: "Нужна помощь"
Сообщений в теме: 5, просмотров: 789
-
-
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} -
-