Нужно подсчитать адреса с подробностями. Количество подсетей = 2n, где n – это количество занятых бит - id1294180520210709 от Demontino2016 09.07.2021 11:36

Question

Информатика: Нужно подсчитать адреса с подробностями. Количество подсетей = 2n, где n – это количество занятых бит от порции хоста. Количество хостов в подсети = 2n-2, где n – это количество свободных бит (нулей) в порции хоста, а «-2» - это вычет адреса сети (в порции хоста все нули) и широковещательного адреса (в порции хоста все единицы). Исходная сеть: 192.168.105.0/24 Требуемое кол-во: 27 подсетей № сети для подробной характеристики: 4 подсеть

Demontino2016 · Accepted Answer

Const
n=4;
var
arr: array[1..n, 1..n] of integer;
i, j, t, buf: integer;
begin
for i:=1 to n do
for j:=1 to n do
begin
write('Введите элемент: ');
readln(arr[i,j]);
end;
    writeln('Введеная матрица:');
for i:=1 to n do
begin
for j:=1 to n do
write(arr[i,j]:4);
writeln();
end;
//Сортировка
for j:=1 to n do
for i:=1 to n-1 do
for t:=i+1 to n do
if arr[i,j] > arr[t,j] then
begin
buf := arr[i,j];
arr[i,j] := arr[t,j];
arr[t,j] := buf;
   end;
writeln('Отсортированная матрица:');
   for i:=1 to n do
begin
for j:=1 to n do
write(arr[i,j]:4);
writeln();
end;
  end.

MOGZ ответил