Const
N = 3;
Var
A:Array[1..N,1..N] of integer;
i,j:integer;
Begin
Randomize;
WriteLn('Исходный массив:');
For i:= 1 to N do
Begin
For j:= 1 to N do
Begin
A[i,j]:=random(21)-10;
Write(A[i,j]:3,' ')
End;
WriteLn
End;
WriteLn('↓↓↓↓↓↓↓↓↓↓↓↓↓');
For i:= 1 to N do
A[i,i]:=5;
For i:= 1 to N do
Begin
For j:= 1 to N do
Write(A[i,j]:3,' ');
WriteLn
End;
End.
Дано:
N1=256
N2=32
k1=k2=k
Найти:
Решение
i-вес одного символа в битах
N- мощность алфавита, или количество символов
- информационный объем
Ответ. Первый объем больше второго в 1.6 раз
А кг- b руб
z кг- ? руб
По свойству пропорции
?= (z*b ) /a руб.
89 2
1 44 2
0 22 2
0 11 2
1 5 2
1 2 2
0 1
1011001