1. k=4096 символов
I=1/512 Мб=2кБ=16384бит
i=4бита
N=16. Мощность алфавита 16
2. k=256 символов
N=12
- минимально возможное число бит для кодирования символа - 4
i=4
I=k*i=256*4=1024 бита=128 байт
Я понимаю это не степени, а основания
а) 566^7 600
79^16 7А
10111^2 11000
344^5 400
89^16 8А
110011^2 110100
б) 1000^4 333
90^16 8F
1001011^2 1001010
344^5 343
89^16 88
110011^2 110010
Var A : array [1..4, 1..4] of integer ;
i,j, p,k: integer ;
Begin
randomize;
k:=1; p:=1;
For i:=1 to 4 do
Begin
For j:=1 to 4 do
Begin
A[i,j]:=random (100);
if A[i,j]>A[k,p] then
begin
k:=i;
p:=j;
end;
Write(A[i,j]:3);
end;
Writeln;
end;
writeln ('Максимальный элемент матрицы = ', A[k,p]);
write ('Он находится в строке №' , k);
writeln (' и в столбце №' , p);
Writeln('Меняем максимальный элемент матрицы и первый элемент первой строки:');
i:=A[k,p];
A[k,p]:=A[1,1];
A[1,1]:=i;
For i:=1 to 4 do
Begin
For j:=1 to 4 do Write(A[i,j]:3);
Writeln;
end;
end.
Наверн 200,если поменять знаки местами