На предприятии имеется n1=5 автомобилей газ, n2=6 автомобилей зил, n3=4 автомобилей камаз, n4=5 автомобилей man. какое количество информации несет сообщение о выезде с территории автомобиля каждого вида?

ГАЗ: ближайшая степень двойки, не меньшая 5 это 3, значит 3 бита.
ЗИЛ: тоже 3 бита.
КаМАЗ: 2 бита.
MAN: тоже 3 бита.

Могу подсказать только 1 вариант:

Объяснение:

Module Module1

   Sub Main()

       Dim x As Single

       Dim y As Single

       Console.WriteLine("Введите координаты точки x ")

       x = Console.ReadLine()

       Console.WriteLine("Введите координаты точки y ")

       y = Console.ReadLine()

       If (x <= 4 And y <= 4 And y >= 4 - x) Or (y <= -4 - x And y >= -4 And x >= -4) Then Console.WriteLine("Точка принадлежит области") Else Console.WriteLine("Точка не принадлежит области")

       Console.ReadKey()

   End Sub

End Module

пишем имя программы

Program:chetre;

вводим переменные. для ввода переменных в программе используется тег <var> , который нужен для выделения переменных компьютерных программ

Var

n,i:

после ввода переменных ставим двоеточие и вводим тип данных ,в данном случае это целое или на языке паскаль integer

Var

n,i: integer;

теперь пишем начало

Begin

введём переменную n

Write('n = ');Read(n);

теперь присваиваем  значение переменной i

i:=0;

дальше вы наверное всё поймёте

if n div 1000 = n mod 10 then i:=i+1;

if (n mod 10 = (n div 10) mod 10) then i:=i+1;

n:=n div 10;

if (n mod 10 = (n div 10) mod 10) then i:=i+1;

n:=n div 10;

if (n mod 10 = (n div 10) mod 10) then i:=i+1;

n:=n div 10;

if i=1 then Write('Верно')

else Write('Не верно')

End.

вот полная программа без всяких вставок

Рrogram:chetre;

Var

n,i:integer;

Begin

Write('n = ');Read(n);

i:=0;

if n div 1000 = n mod 10 then i:=i+1;

if (n mod 10 = (n div 10) mod 10) then i:=i+1;

n:=n div 10;

if (n mod 10 = (n div 10) mod 10) then i:=i+1;

n:=n div 10;

if (n mod 10 = (n div 10) mod 10) then i:=i+1;

n:=n div 10;

if i=1 then Write('Верно')

else Write('Не верно')

End.