21 Портфель заказов организации содержит n тем. Выполнение каждой темы требует m ресурсов. Известны потребности aij темы i в ресурсе
j, i=1..m, j=1..n. Запасы ресурсов ограничены величинами bi , i=1..m.
Экономический эффект от выполнения темы j составляет Cj, j=1..n.
Отобрать темы для исполнения так чтобы экономический эффект был наибольшим. Отобранная тема должна
выполняться полностью
нужен код в код блокс

Переведем значение маски и ip-адреса компьютера в двоичную систему:

255.255.252.0₁₀ = 11111111.11111111.11111100.00000000 ₂

110.10.110.10₁₀      = 01101110.00001010.01101110.00001010₂

Единицы в маске подсети относятся к адресу сети, а нули  - к адресу узла, поэтому единицы отбрасываем и рассматриваем нули.  

Если сравнить побитно маску и адрес узла, то соответствующие этим нулям биты в ip-адресе будут являться порядковым номером компьютера в сети: 1000001010₂ = 522 ₁₀

ответ: Порядковый номер компьютера в сети: 522

Объяснение:

                                     PascalABC.NET                                       beginvar n := ReadInteger('Введите количество резисторов:');var Rs := ReadArrInteger('Введите их сопротивления:',n);Writeln(NewLine, 'Общее сопротивление цепи равно:');Println(' при последовательном соединении -', Rs.Sum,'Ом');Println(' при параллельном соединении -', 1/Rs.Sum(r->1/r),'Ом');end.

или кратко:

beginvar Rs := ReadArrInteger(3);Println('послед:', Rs.Sum);Println('парал:', 1/Rs.Sum(r->1/r));end.

Пример работы: