Интересная книга о компьютерах. авторы

Призрак в Сети. Мемуары величайшего хакера, Уильям Саймон , Кевин Митник
Короли Авито. Александр Чочиев

Объяснение:

выписываешь все уникальные(?) символы, которые есть в предложении.

Аисх = {С, Т, О, И, П, Н, А, К, Е, Л, пробел, запятая};

считаешь их общее количество.

Mисх = 12;

смотрим формулу.

М =  (это та же формула N = , просто буковки другие, да)

подставляем число 12 под М, но т.к. тут такая непонятная штука со степенью, то подставляем наименьшее целое i, удовлетворяющее следующему неравенству: M <

теперь подставим известное значение мощности исходного алфавита:

12 < , следовательно i = 4(бит). тройка быть не может, т.к. = 8, а 8 < 12.

теперь каждому символу самостоятельно присваиваешь уникальную кодовую комбинацию. удобнее всего это сделать в виде таблицы. например:

 С        Т        О

0010   1111    0100           и т.д.

теперь пишешь в строчечку все эти комбинации.

001011110100........ не забудь про пробелы и запятые.

чтобы рассчитать объем полученного текстового файла, тебе нужно общее количество символов предложения (34) умножить на 4 бита. это и будем объемом полученного файла.

*если что, то в строчку нужно писать комбинации символов всего предложения, а не только этих 12.

надеюсь, все правильно и понятно.

Program N70231806_1;
var a:array[ 1 .. 10 ] of shortint;
i:byte;
t:shortint;
begin
randomize;
writeln('Исходный массив: ');
for i := 1 to 10 do
begin
a[ i ] := random(21) - 10;
write(a[ i ]:4)
end;
writeln;
t := a[ 10 ];
for i := 10 downto 2 do
a[ i ] := a[ i - 1 ];
a[ 1 ] := t;
writeln('Результат: ');
for i := 1 to 10 do
write(a[ i ]:4);
readln
end.

2)
program N70231806_2;
var a:array[ 1 .. 12 ] of shortint;
i, j:byte;
t:shortint;
begin
randomize;
writeln('Исходный массив: ');
for i := 1 to 12 do
begin
a[ i ] := random(25) - 10;
write(a[ i ]:4)
end;
writeln;
for j := 1 to 4 do
begin
t := a[ 12 ];
for i := 12 downto 2 do
a[ i ] := a[ i - 1 ];
a[ 1 ] := t
end;
writeln('Результат: ');
for i := 1 to 12 do
write(a[ i ]:4);
readln
end.