Запишите команду, позволяющую вывести на экран надпись, используя переменную в. значение переменной в=127 в: =127;

Writeln(b); - команда вывода, затем новая строкаwrite(b); - команда вывода

1. найдем мощность алфавита: n = 33 прописных буквы + 33 строчных букв + 21 специальный знак = 87 символов.подставим в формулу и рассчитаем количество информации:   2. i = log287 = 6,4 бита.  такое количество информации - информационный объем - несет один символ в тексте. теперь, чтобы найти количество информации во всем тесте, нужно найти общее количество символов в нем и умножить на информационный объем одного символа. пусть в тексте 3000 символов. значит: 3. 6,4*3000 =19140 бит. теперь дадим переводчику перевести этот текст на язык. причем так, чтобы в тексте осталось 3000 символов. содержание текста при этом осталось точно такое же. поэтому с точки зрения вероятностного подхода количество информации также не изменится, т.е. новых и понятных знаний не прибавилось и не убавилось.

Var   i: integer;       //   рабочая переменная для for   k: integer;       //   количество минимальных элементов   n: integer;       //   размер массива  m : array [1..10] of integer; // собственно сам массив   из "n" элементов   i_min : integer;   // индекс минимального элемента в массиве begin   n: =10;   k : = 0;   i_min : = 1;   for i : = 1 to n   do   begin     m[i] : = random(10);   // 10 - число от     if (m[i]< m[i_min]) then     begin       k : = 1;       i_min : = i     end     else       if (m[i]=m[i_min]) then         inc(k);   end;   // в переменной "k" - находится количество минимальных элементов end;