1. Добавлено 4 бита, так как в маске 255.255.0.0 - 16 единичных бит,
а в маске 255.255.240.0 - 20 единичных бит
2. Судя по маске получим 16 подсетей, количество битов узлов подсети - 12
3. В каждой подсети по 4094 узлов + адрес подсети + широковещательный адрес
4. Сетевой адрес этой подсети 172.16.64.0
5. Адрес IPv4 первого узла в этой подсети 172.16.64.1
6. Адрес IPv4 последнего узла в этой подсети 172.16.79.254
7. Широковещательный адрес IPv4 в этой подсети 172.16.79.255
<em>// PascalABC.NET 3.3, сборка 1583 от 25.11.2017</em>
<em>// Внимание! Если программа не работает, обновите версию!</em>
begin
Writeln('*** Исходный массив ***');
var a:=MatrRandom(4,4,-99,99); a.Println(4);
for var r:=0 to 3 do
a.SetRow(r,a.Row(r).OrderBy(t->t).ToArray);
Writeln('*** Отсортированный массив ***'); a.Println(4)
end.
<u>Пример</u>
*** Исходный массив ***
-51 13 46 -81
66 52 -8 -58
-30 7 44 1
12 11 -98 -90
*** Отсортированный массив ***
-81 -51 13 46
-58 -8 52 66
-30 1 7 44
-98 -90 11 12
Program al;
var n:integer;
begin
writeln('n=');
readln(n);
if (n >9) and (n<100) then writeln(n);
if (n > 99) and (n<1000) then writeln(n div 10);
if (n >1000) and (n<10000) then writeln(n div 100);
if n>10000 then writeln(n div 1000);
readln;
<span>end.</span>
<em>монитор, принтер,наушники,</em><em>потому что,эти устройства помогают выводить информацию с компьютера. </em>
