Переведем 30 (10)<span> в двоичную систему вот так:</span>
<span>Целая часть числа находится делением на основание новой :(на фото)</span>
<span>
</span>
Получилось:<span>30 (10) = 11110 (2)</span><span> </span>
110-89=21
21+89=110 вот вроде правильно
Лена -1;2;3;4;5;6 Прошла в комнату -Да
Саша-1;2;3;4;6; Прошел в комнату- Нет
<h3>PascalABC.NET 3.4.2, сборка 1884 от 24.11.2018</h3><h3>Внимание! Если программа не работает, обновите версию!</h3>
begin
var a := ReadSeqInteger(20).Where(t -> Abs(t) < 10)
.Aggregate(BigInteger(1), (p, q)-> p * q).Println
end.
<h2>Пример</h2><h3>9 9 9 9 9 9 9 9 9 9 9 9 9 -9 -9 -9 -9 9 9 9</h3><h3>12157665459056928801 </h3>