В терминологии сетей TCP/IP маской сети называется двоичное число, определяющее, какая часть IP-адреса узла сети относится к адресу сети, а какая – к адресу самого узла в этой сети. Обычно маска записывается по тем же правилам, что и IP-адрес. Адрес сети получается в результате применения поразрядной конъюнкции к заданному IP-адресу узла и маске. По заданным IP-адресу узла и маске определите адрес сети.
IP-адрес узла: 217.19.128.131
Маска: 255.255.192.0
При записи ответа выберите из приведённых в таблице чисел четыре элемента IP-адреса сети и запишите в нужном порядке соответствующие им буквы, без использования точек.
var
a: string;
b: array[1..9]of integer;
sort: boolean;
max, k: integer;
begin
Readln(a);
for var i := 1 to Length(a) do
b[i] := strtoint(a[i]);
sort := false;
while sort = false do
begin
sort := true;
k += 1;
for var i := 1 to Length(a)-1 do
begin
if a[i] < a[i+1] then
begin
sort := false;
var value2 := a[i];
a[i] := a[i+1];
a[i+1] := value2;
end;
end;
end;
write(a[1]);
end.
Программа написана на PascalABC.net
на free pascal или turbo pascal она может не работать
В терминологии сетей TCP/IP маской сети называется двоичное число, определяющее, какая часть IP-адреса узла сети относится к адресу сети, а какая – к адресу самого узла в этой сети. Обычно маска записывается по тем же правилам, что и IP-адрес. Адрес сети получается в результате применения поразрядной конъюнкции к заданному IP-адресу узла и маске. По заданным IP-адресу узла и маске определите адрес сети.
IP-адрес узла: 217.19.128.131
Маска: 255.255.192.0
При записи ответа выберите из приведённых в таблице чисел четыре элемента IP-адреса сети и запишите в нужном порядке соответствующие им буквы, без использования точек.