Внекотором царстве c ip 128.0.0.0/2 делённом на 10 государств, в которых не более 20ти губерний по 10 хозяйств по 4 района в каждом, да по 60 усадеб семи этажных на районе, где для каждого холоппа поставлен компьютер, да на каждом уровне вплоть до этажей выделены подсети. а сколько у нас холопов к сети подключено может быть в государстве-то нашем?

Не ученые мы мужи, но если рассуждать по нашему-по простому то стало быть так: 4 бита маски под 16 государственных подсетей надобно иметь, чтобы 10 перекрыть и еще 5 бит маски надо под 32 губернские подсети, чтобы все 20 поместить и еще 4 бита маски на хозяйственные подсети, плюс 2 бита на районные да 8 на усадебные да 3 на подсети для разных этажей, итого получается аж плюс 28 к 2 царственным. То бишь маска подсетей этажных получается /30 и значит аж 2 компьютера на этаже разместь можно. Ну и теперь считаем так: 2 компьютера x 7 этажей x 60 усадеб x 4 района x 10 хозяйств x 20 губерний x 10 государств = 6720000 хлопчиков будут фильмы на ютубчике глядеть и радоваться.

14 и 35 делятся на 7, поэтому можно получить только количества воды, кратные 7 л. Максимальное возможное число литров в двух сосудах равно 14 + 35 = 49, поэтому можно пробовать получить 0 л, 7 л, 14 л, 21 л, 28 л, 35 л, 42 л, 49 л.

0 л, 14 л, 35 л, 49 л - очевидно, получаются, это ни одного заполненного бака, заполненный бак на 14, заполненный бак на 35, оба заполненных бака.

21 л: заполнить бак на 35, отлить 14 в меньший бак, вылить воду из меньшего бака.
7 л: налить 21 л в больший бак (мы это уже умеем), отлить 14 в меньший бак, вылить воду из меньшего бака.
28 л: наполнить меньший бак, вылить из меньшего бака в больший, заполнить меньший бак.
42 л: налить 7 л в больший бак, перелить в меньший бак, заполнить больший бак.

Итого, можно получить 0 л, 7 л, 14 л, 21 л, 28 л, 35 л, 42 л, 49 л.

uses

   crt;

const

    max=50;

var

  a:array[1..max,1..max] of integer;

  i,j,n,s,k:integer;

begin

    writeln('wvedite razmernost matrici');

    readln(n);

    writeln('wvedite matricu ',n,' x ',n);

    for i:= 1 to n do

        begin

             for j:= 1 to n do

                 read(a[i,j]);

        end;

    s:=0;

    k:=0;

    for i:= 1 to n do

        begin

             for j:= 1 to n do

                 if (j mod 2<>0) and (i mod 2<>0) then

                    begin

                         s:=a[i,j]+s;

                         k:=k+1

                    end;

        end;

        s:=round(s/k);

        writeln('sredne arifmet znashenie s neshetnimi indeksami ravno ', s);

readkey

end.