1. Сколько различных звуковых сигналов можно закодировать с 8 бит? 2. Определить максимальное количество страниц текста, содержащего по 80 символов в каждой
строке и 64 строки на странице, которое может содержать файл, сохраненный на гибком
магнитном диске объемом 10Кбайт.
3. Два текста содержат одинаковое количество символов. Первый текст составлен в алфавите
мощностью 8 символов, второй – 16 символов. Во сколько раз отличается количество информации
В этих текстах?
4. Информационное сообщение объемом 1,5 Кбайта содержит 3072 символа. Сколько символов
содержит алфавит, с которого было записано сообщение?
5. Сколько символов содержит сообщение, написанное с 16-символьного алфавита, если
объем его составил 3/16 Кбайта?
6. В языке некоторого племени всего 16 букв. Все слова состоят из 5 букв, всего в языке 8000 слов.
Сколько памяти в байтах потребуется для хранения всех слов этого языка?
7. В некоторой кодировке слово из 20 букв занимает на 42 байта больше, чем слово из шести букв.
Сколько бит отводится на одну букву, если под все символы этой кодировки отводится равный
объем памяти?
var x: array[1..nx, 1..nx] of integer;z:array[1..nx*2] of integer;
i, j, k,n,r,t: integer;
begin
Writeln('Введите размер матрицы n');Read(n);
for i := 1 to n do begin
for j := 1 to n do begin
Read(k);x[i, j] := k; end;end;
Writeln('Исходный массив');
for i := 1 to n do begin
for j := 1 to n do begin
Write(x[i, j]:4);
if x[i, j]>0 then begin t:=t+1; z[t]:=x[i, j];end;
end;
Writeln; end;
Writeln;Writeln('Одномерный массив');
for j := 1 to t do
Write(z[j]:4);
end.