Каждое из логических выражений A и B зависит от одного и того же набора из 5 переменных. В таблицах истинности обоих выражений совпадают ровно 10 строк. Каково максимально возможное число нулей в столбце значений таблицы истинности выражения A → B? Я решил так : если пять переменных то количество строк 2 в степени 5,то есть 32, в них 10 строк a=b, это либо 1=1 либо 0=0, А следует Б только в случае если А=1, а Б=0, значит если А и Б совпадают то значения всегда истины, однако 22 строчки не совпадают, значит может быть так, что А=1,а Б=0, значит ответ 22, верно ли я решил?

Переводим третий байт IP и адреса сети в двоичную систему

50 - 110010

48 - 110000

Так как это байт (а в байте 8 бит), допишем два незначащих нуля к получившимся числам:

00110010 - IP

00110000 - адрес сети

Адрес сети получается с применения поразрядной конъюнкции к маске и IP, проще говоря, при перемножении разрядов маски и IP-адреса. И в маске всегда сначала идут только единицы, а потом только нули. То есть можно записать так:

- маска

00110010 - IP

00110000 - адрес сети

где иксы в маске и цифры в IP-адресе - множители, а разряды адреса сети - произведение.

На 3 и 4 месте в маске однозначно должны быть единицы, т.к. если там будут нули, то и в адресе сети будут нули. Плюс к этому, в маске всегда сначала идут только единицы, а потом только нули, то есть можно записать так:

1111 - маска

00110010 - IP

00110000 - адрес сети

Второй справа разряд IP-адреса - единица, а адреса сети - ноль, значит в маске может быть только ноль:

1111хх00 - маска

00110010 - IP

00110000 - адрес сети

Оставшиеся два икса могут быть и единицами, и нулями. Нужно наименьшее возможное значение, значит поставим на их место нули:

11110000 - маска

00110010 - IP

00110000 - адрес сети

То есть третий байт маски 11110000, переведём в десятичную - получим 240.

1.                                                    

program raf105;

var

 a, s: real;

function square(a: real): real;

begin

 square:= a*a;

end;

begin

 write('Введите сторону квадрата: ');

 readln(a);

 s:= square(a);

 writeln('Его площадь равна ',s);

end.

2.                                                    

program raf105;

var

 num10, num2, count_1: integer;

begin

 write('Введите десятичное число: ');

 readln(num10);

 repeat

   if (num10 mod 2 = 1) then

     count_1:= count_1 + 1;

   num10:= num10 div 2;

   if num10 = 1 then

     inc(count_1)

 until num10 <= 1;

 writeln('В двоичной записи числа ',count_1,' ед.');

end.

                                                       PascalABC 3.4.2