Untitled

Среди чисел, записываемых только нулями и единицами, найдите наименьшее кратное 14.

0твет: 10010

Решение:

i = 1; b = True; While[b, ii = FromDigits[IntegerDigits[i, 2],10]; If[Mod[ii, 14] == 0, Print[ii]; b = False]; i++];