4. Упростите логические формулы: 1) (A & B & C) V (A & B& C) V (A & B);
2) (A &ByA & B&Cy B& Cy C) & (C VA & Cy A & B & C).​

Современный PascalABC.NET

begin

 var (a, b) := ReadInteger2('Введите a и b:');

 if a > b then

   Print(a, b)

 else

   Print(b, a)

end.

Старенький Free Pascal

var

 a, b: integer;

begin

 Write('Введите a и b: ');

 Readln(a, b);

 if a > b then

   Write(a, ' ', b)

 else

   Write(b, ' ', a)

end.

Turbo Pascal для современников мамонтов

program ABC;

uses Crt;

var

 a, b: integer;

begin

 ClrScr;

 Write('Введите a и b: ');

 Readln(a, b);

 if a > b then

   Write(a, ' ', b)

 else

   Write(b, ' ', a);

 ReadKey;  

end.

Короче говоря, нужно знать одну лишь формулу:

N = 2^i, где N - количество символов в алфавите, а i - вес каждого символа алфавита в битах.

У нас 128 символов, значит, N = 128, используя формулу, определяем вес символа в алфавите:

128 = 2^i => i = 7 бит

(Кстати, если здесь всё четко получилось (2^7 = 128), то если у тебя N= 127, то i нужно округлять в большую сторону: здесь i тоже будет равен 8 бит, или если N=129, то i =9 бит)

Теперь вычисляем сколько информации содержится в сообщении, умножив вес символа на количество символов:

8 × 40 = 320 бит

ответ: 320 бит