22 1) 2+2=4 2) 2-2=0 3)2*2=4 4)2:2=1
1. Добавлено 4 бита, так как в маске 255.255.0.0 - 16 единичных бит,
а в маске 255.255.240.0 - 20 единичных бит
2. Судя по маске получим 16 подсетей, количество битов узлов подсети - 12
3. В каждой подсети по 4094 узлов + адрес подсети + широковещательный адрес
4. Сетевой адрес этой подсети 172.16.64.0
5. Адрес IPv4 первого узла в этой подсети 172.16.64.1
6. Адрес IPv4 последнего узла в этой подсети 172.16.79.254
7. Широковещательный адрес IPv4 в этой подсети 172.16.79.255
Очевидно, что в подмножество войдут сигналы, для которых значение будет не меньше 1, поскольку меньшие значения уменьшают произведение.
<em>// PascalABC.NET 3.3, сборка 1634 от 14.02.2018</em>
<em>// Внимание! Если программа не работает, обновите версию!</em>
begin
var a:=SeqRandom(ReadInteger('n='),0,99).Select(t->0.1*t).ToArray;
a.Println.Where(t->t>=1.0).Println
end.
<u>Пример</u>
n= 15
1.3 2.8 0.7 5.1 1 0.9 7.9 5.5 3.4 3.6 9.1 2.7 2.5 9 7.9
1.3 2.8 5.1 1 7.9 5.5 3.4 3.6 9.1 2.7 2.5 9 7.9
Первая ЖИТЬ. т.к. ноль может идти только в паре с 1,2 или 3