Рассмотрите такой вариант (дано упрощённо, по возможности доработайте под свои требования): 1. Максимальная маска сети 32. 32-27=5, то есть количество адресов в сети может быть 2⁵=32 (сюда входят широковещательный и сетевой адрес - два адреса, заняты), из которых 32-2=30 остаётся под устройства. 2. Для данной маски сети диапазоны адресов такие: 0-31, 32-63, 64-95, 96-127, 128-159, 160-191, 192-223 и 224-255. Если адрес сети 193.125.78.100, то адреса будут такие: от 193.125.78.96 до 193.125.78.127. 3. Из п.№2 видно, что 193.125.78.100 входит в сеть, устройство 193.125.78.113 также в этой сети.
PascalABC.NET 3.3.5, сборка 1659 от 09.04.2018 Внимание! Если программа не работает, обновите версию!
begin var s:=ReadlnString; var a:=s.ToWords('.').Select(t->Trim(t)).ToArray; var b:=s.ToWords(Arr('.',' ')) .GroupBy(t->t).Select(t->(t.Key,t.Count)) .Where(t->t[1]>1).Select(t->t[0]).ToArray; a.Cartesian(b,(p,q)->p.Contains(q)?p:'') .Where(t->t.Length>0).Distinct.PrintLines end.
