Составить программу на языке Pascal, проверяющая есть ли в одномерном массиве элементы кратные 5. Выписать количество таких чисел, сами числа и их индекс.
Единицы в маске подсети относятся к адресу сети, а нули - к адресу узла, поэтому единицы отбрасываем и рассматриваем нули.
Если сравнить побитно маску и адрес узла, то соответствующие этим нулям биты в ip-адресе будут являться порядковым номером компьютера в сети: 1000001010₂ = 522 ₁₀
PascalABC.NET beginvar n := ReadInteger('Введите количество резисторов:');var Rs := ReadArrInteger('Введите их сопротивления:',n);Writeln(NewLine, 'Общее сопротивление цепи равно:');Println(' при последовательном соединении -', Rs.Sum,'Ом');Println(' при параллельном соединении -', 1/Rs.Sum(r->1/r),'Ом');end.
Переведем значение маски и ip-адреса компьютера в двоичную систему:
255.255.252.0₁₀ = 11111111.11111111.11111100.00000000 ₂
110.10.110.10₁₀ = 01101110.00001010.01101110.00001010₂
Единицы в маске подсети относятся к адресу сети, а нули - к адресу узла, поэтому единицы отбрасываем и рассматриваем нули.
Если сравнить побитно маску и адрес узла, то соответствующие этим нулям биты в ip-адресе будут являться порядковым номером компьютера в сети: 1000001010₂ = 522 ₁₀
ответ: Порядковый номер компьютера в сети: 522
Объяснение:
или кратко:
beginvar Rs := ReadArrInteger(3);Println('послед:', Rs.Sum);Println('парал:', 1/Rs.Sum(r->1/r));end.Пример работы: