500 символов. Каков информационный вес каждого символа этого сообщения? Какова мощность алфавита, с кото-
рого было записано это сообщение?
12. Для записи текста использовался 64-символьный алфавит.
Какое количество информации в байтах содержат 3 страницы
текста, если на каждой странице расположено 40 строк по
60 символов в строке?
13. Сообщение занимает 6 страниц по 40 строк, в каждой строке за-
писано по 60 символов. Информационный объём всего сообще-
ния равен 9000 байтам. Каков информационный вес одного сим-
вола? Сколько символов в алфавите языка, на котором записано
это сообщение?
14. Метеорологическая станция ведёт наблюдение за влажностью
воздуха. Результатом одного измерения является целое число
от 0 до 100 процентов, которое записывается цепочкой из нулей
и единиц минимальной длины, одинаковой для каждого изме-
рения. Станция сделала 8192 измерения. Определите информа-
Точит

👇

Увидеть ответ

Ответ:

Evildevil2

15.03.2022

Объяснение:

5. Допишите предложения

А) Программное обеспечение – совокупность программ, .

Б) Виды программного обеспечения - .

В) Операционные системы устанавливают не только на компьютеры, но и

4,6(22 оценок)

Открыть все ответы

Ответ:

kolomietslina

15.03.2022

Const
   N = 7; // количество наименований товаров
Var
   A:array[1..N,1..3] of integer;
   i,k,S:integer;
Begin
For i:= 1 to N do
    Read(A[i,1],A[i,2],A[i,3]);
k:=0;
For i:= N downto 1 do
    if A[i,2] = 0 then k:=i;
if k > 0 then
   Begin
   Write('00 - ',A[k,1]*A[k,3]);
   S:=0;
   For i:= k+1 to N do
       if A[i,2] = 0 then
          Begin
          Write('+',A[i,1]*A[i,3]);
          S:=S+A[i,1]*A[i,3];
          End;
   if S <> 0 then Write('=',S+A[k,1]*A[k,3]);
   WriteLn;
   End;
k:=0;
For i:= N downto 1 do
    if A[i,2] = 1 then k:=i;
if k > 0 then
   Begin
   Write('01 - ',A[k,1]*A[k,3]);
   S:=0;
   For i:= k+1 to N do
       if A[i,2] = 1 then
          Begin
          Write('+',A[i,1]*A[i,3]);
          S:=S+A[i,1]*A[i,3];
          End;
   if S <> 0 then Write('=',S+A[k,1]*A[k,3]);
   WriteLn;
   End;
k:=0;
For i:= N downto 1 do
    if A[i,2] = 10 then k:=i;
if k > 0 then
   Begin
   Write('10 - ',A[k,1]*A[k,3]);
   S:=0;
   For i:= k+1 to N do
       if A[i,2] = 10 then
          Begin
          Write('+',A[i,1]*A[i,3]);
          S:=S+A[i,1]*A[i,3];
          End;
   if S <> 0 then Write('=',S+A[k,1]*A[k,3]);
   WriteLn;
   End;
k:=0;
For i:= N downto 1 do
    if A[i,2] = 11 then k:=i;
if k > 0 then
   Begin
   Write('11 - ',A[k,1]*A[k,3]);
   S:=0;
   For i:= k+1 to N do
       if A[i,2] = 11 then
          Begin
          Write('+',A[i,1]*A[i,3]);
          S:=S+A[i,1]*A[i,3];
          End;
   if S <> 0 then Write('=',S+A[k,1]*A[k,3]);
   WriteLn;
   End;
End.

Пример работы программы:

17 1 2
3 0 5
7 1 4
8 11 9
95 0 3
31 10 44
5 1 6
00 - 15+285=300
01 - 34+28+30=92
10 - 1364
11 - 72

4,7(39 оценок)

Ответ: