Сеть надо разбить на подсети так, чтобы каждая подсеть обеспечивала 14 IP адресов, пригодных для конфигурирования хостов. Какую маску подсети следует использовать для созданных таким образом новых подсетей. 1. 255,.255,.255. 128
2. 255..255..255.,224
3. 255,.255,.255.,240
4. 255,.255,.255.,248
5. 255,.255,.255.,252
var a : array [1..3, 1..4] of integer
b : array [1..3] of integer
Max, i, j : integer
BEGIN
crt;
for i:=1 to 3 do
begin
for j:=1 to 4 do
begin
read (a[i, j]); // вводим элементы в массив a[1..3, 1..4]
end;
writeln; // делаем пустой перевод строки
end;
for i:=1 to 3 do
begin
b[i] := a[i, 1];
for j:=1 to 4 do
begin
if a[i, j] > b[i] then b[i] := a[i, j];
// находим максимальный элемент в каждой строке и записываем в b[1..3]
end;
end;
Max := b[1];
for i:=1 to 3 do if b[i] > Max then Max := b[i];
// Находим максимальный элемент из максимальных элементов
writeln (Max); // Выводим его на экран
END.