Const
m = 10;
var
a: array[1..m+1] of integer;
i, k: integer;
begin
write ('Исходный массив: ');
for i := 1 to m do
begin
a[i] := random(100);
write (a[i],'; ');
end;
writeln;
write('Введите число: ');
readln(k);
for i:=m+1 downto 1 do
begin
a[i]:=a[i-1];
if a[i] mod 2=0 then
begin
a[i-1]:=k;
break;
end;
end;
write('Измененный массив: ');
for i := 1 to m+1 do
write (a[i],'; ');
<span>end.</span>
Это значек обозначающий программу
Нет 1 байт 8 битов а 2 это уже 16
1) По формуле Шеннона 2^i=N, где N - мощность, а i - кол-во бит, которыми кодируется каждый симфол. Таким образом найдём i=6. 6 бит на каждый символ.
Символов во фразе 4+1+4+1+4+1=15. 15*6=60бит.
Ответ: 60 бит.
2) 2гб=2*2^10мб=2*2^20кб=2*2^30байт=2^33бит=2^34 бит
3)125124Кбит=125124/2^13=31281/2^11=31281/2048=15,27