Число, записанное на доске, делят на 2, если оно четное, в противном случае прибавляют 3. Какое число было записано на доске, если известно, что оно делилось на 7 и после того, как к нему применили 6 раз указанную операцию, на доске оказалось числo 9.

0твет: 126

Решение:

For[i = 2000, i >= 2, i--, y = i; If[Mod[y, 7] == 0, For[k = 1, k <= 6, k++, If[EvenQ[y], y = y/2, y +=3]]; If[y == 9, Print[i]; Abort[]]]];

9. Число на доске