1. по данным ip-адресам определить, к сети какого класса они принадлежат, получить ip-адрес сети, маску сети и ip-адрес широковещательной рассылки в данной сети: 65.72.172.57 191.194.186.67 117.39.255.239 203.80.81.87 2. используйте ip-адреса из 1 и соответствующую длину маски сети, чтобы получить ip-адрес сети, маску сети и ip-адрес широковещательной рассылки в данной сети: /26 /13 /20 /27 3. является ли данная маска сети правильной и какова ее длина в битах: по определению маска сети является непрерывной последовательностью битов 1 от старшего разряда после которых идут только биты 0. поэтому необходимо перевести в двоичное представление указанные маски и проверить этот факт. 248.0.0.0 255.249.0.0 255.255.255.240 224.0.0.0

Количество различных салатов r, которые можно приготовить, имея n продуктов и беря для приготовления k из них (k=2, n-1), в определяется, как число размещений из n по k и определяется по следующей формуле: формула красивая, короткая, но неудобная для вычисления. в самом деле, надо найти три факториала, каждый из которых может оказаться достаточно большим числом. но можно сделать небольшое преобразование и вычисление. но это было вычисление r только для конкретного k при заданном n. нам же нужно найти сумму r для всех k от 2 до n. и да, для k=n формула не предназначена, но зато мы и так понимаем, что для такого случая r=1. свелась к нахождению обычной суммы // pascalabc.net 3.2, сборка 1370 от 24.12.2016 // внимание! если программа не работает, обновите версию! function c(n,k: integer): integer; begin   if n=k then result: =1   else begin       var p: =1.0;       for var i: =1 to n-k do p: =p*(k+i)/i;       result: =round(p);       end; end; begin   var n: =readinteger('кол-во продуктов: ');   var s: =1;   for var i: =2 to n-1 do s: =s+c(n,i);   writeln('кол-во салатов: ',s) end. примеры: кол-во продуктов:   3 кол-во салатов: 4 кол-во продуктов:   5 кол-во салатов: 26 кол-во продуктов:   10 кол-во салатов: 1013

Program z1; var i, j, p: integer; a: array[1..6, 1..3] of integer; begin p : = 1; i : = 1; j : = 1; while i < = 6 do begin       while j < = 3 do       begin               write('a[',i,'][',j,']=');               readln(a[i,j]);               j : = j + 1;       end;       i : = i + 1; end; i : = 1; j : = 1; repeat       repeat               if a[i,j] > = 0 then                     p : = p * a[i,j];               j : = j + 1;       until j > 3;       i : = i + 1; until i > 6; writeln('произведение неотрицательных элементов: ',p); end.