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.
Рассмотрите такой вариант (дано упрощённо, по возможности доработайте под свои требования): 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 также в этой сети.
Внимание! Если программа не работает, обновите версию!
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.
Примеры
Мама мыла полы. Маша ела кашу. Даша пила молоко. Таня мыла полы.
Мама мыла полы
Таня мыла полы
Мама мыла раму. Маша ела кашу. Даша пила молоко. Таня мыла полы.
Мама мыла раму
Таня мыла полы