А4 Все 5-буквенные слова, составленные из букв А, В, С, записаны в алфавитном порядке. Вот начало списка:
1)
2) АААAB
3) ААAAC
4) ААABA
Какой номер будет у слова BACAB?
А5. Для передачи по каналу связи сообщения, состоящего только из символов А, Б, В и Г, используется неравномерный (по длине) код: А-00, Б-11, В-010, Г-011. Через канал связи передается сообщение: ГБВАВГ. Закодируйте сообщение данным кодом. Полученную двоичную последовательность переведите в шестнадцатеричную систему счисления.
А6 Автоматическое устройство осуществило перекодировку информационного сообщения
на русском языке длиной в 20 символов, первоначально записанного в 2-байтном коде, в 8- битную кодировку. На сколько бит уменьшилась длина сообщения?
А7 Объем сообщения – 7,5 Кбайт. Известно, что данное сообщение содержит 7680 символов. Какова мощность алфавита?
А8 Пусть дано некоторое изображение, созданное с символов, содержащее 25 строк. Каждая строка содержит ровно 25 символов из десяти возможных ( + = - * ? ! % / \ ~). Для каждой такой строки выделено одинаковое и минимально возможное количество байтов. Каждый символ кодируется одинаковым и минимально возможным количеством битов. Определите, какой объём в битах требуется для сохранения этого изображения.
А9 Рисунок размером 512 на 256 пикселей занимает в памяти 64 Кбайт (без учёта сжатия). Найдите максимально возможное количество цветов в палитре изображения
А10 Аня может передать документ объёмом 50 Мбайт можно передать с одного компьютера на другой двумя А) Сжать документ архиватором, передать его по каналу связи, распаковать.
Б) Передать документ по каналу связи без использования архиватора.
Какой быстрее и на сколько, если средняя скорость передачи данных по каналу связи составляет 223 бит в секунду, объём сжатого архиватором документа равен 45% от исходного, время, требуемое на сжатие документа — 10 секунд, на распаковку — 2 секунды?
1) var A: array [1..7,1..9] of integer;
var i,j,k,n:integer;
var Sr: double;
begin
randomize;
writeln ('Массив случайных чисел');
for i:=1 to 7 do
begin
for j:=1 to 9 do begin
A[i,j]:= random (56) + 25;
write (A[i,j]:4);
end;
writeln;
end;
for i:=1 to 7 do
begin
for j:=1 to 9 do
begin
If A[i,j] mod 2 = 0 then
begin
Sr:= Sr + A[i,j];
k:= k + 1;
end
else n:= n + 1;
end;
end;
Sr:= Sr / k;
Writeln ('Среднее арифмитическое четных элементов: ', Sr);
Writeln ('Количество нечетных элементов: ', n);
end.
2)const n = 5;
const b = 5;
var A: array [1..n,1..b] of integer;
var i,j:integer;
begin
writeln ('Введите массив');
for i:=1 to n do
begin
for j:=1 to b do begin
Read (A[i,j]);
end;
end;
for i:=1 to n do
begin
for j:=1 to b do begin
If A[i,j] < 0 then
A[i,j]:= 1;
write (A [i,j]:4);
end;
Writeln;
end;
end.