101011101= 349
11101101= 237
<h3>PascalABC.NET 3.4.2, сборка 1881 от 19.11.2018</h3><h3>Внимание! Если программа не работает, обновите версию!</h3>
begin
ReadSeqInteger('Вводите:', 15)
.Where(t -> t.InRange(1, 14)).Sum.Println
end.
# Python 3.X
from random import randint
from functools import reduce
arr = [randint(1, 201) for _ in range(100)]
odd = list(filter(lambda x: x % 2 == 1, arr))
print('Количество: {}'.format(len(odd)), 'Произведение: {:,}'.format(reduce(lambda x, y: x * y, odd)), sep='\n')
Таблица или картина ( Макет самолет и так далее)