Відомо, що в складі потягу 16 вагонів. скільки бітів інформації міститься у телеграмі " зустрічайте вагон №7"?

Поскольку в поезде 16 вагонов, то полученное сообщение уменьшает неопределенность в выборе номера вагона в 16 раз и объем полученной информации равен битам.

Var st,s: string;     i,j: integer; begin   s: ='9876543210';   write('число:   ');   readln(st);   j: =1;   while j< =length(s) do   begin     i: =1;       while i< =length(st) do     begin       if st[i]=s[j] then         begin         write(s[j],' ');         delete(st,i,1);         i: =i-1;       end;       i: =i+1;     end;     j: =j+1;     if length(st)=0 then break;   end;   end.     

Program z1;   var a: array [1..100,1..100] of integer; i,j,n,m,min,t: integer; begin  write('введите кол-во столбцов - ');   readln(n);   write('введите кол-во строк - ');   readln(m);   randomize;   for j: =1 to m do  begin    for i: =1 to n do    begin      a[i][j]: =random(9)-0;       write (a[i][j],' ');     end;     writeln;   end;       min: =a[1][4];   t: =1;   for i: =2 to n do  begin    if (a[i][4]< min)        then begin              min: =a[i][4];               t: =i;             end;   end;   writeln('минимальный элемент - ',min);   writeln('столбец - ',t); end.