После того, как с Валерой стали расплачиваться биткоина монетой - он помешался на формировании блокчейн последовательностей из всяких актуальных данных. Однако ж взгляните - он опять ничего не доделал! В этой таблице всё не так! Ну вообще всё! Хотя... если определения вместе с id поставить на свои места, то в столбце id получится ответ (примерно так должен выглядеть: "01 02 03 04...") Возможно эту монету получится выменять на горстку .

чтобы закодировать любое число от 1 до 4000 нужно i=12 бит (2^i = 4000; i=12 бит). 300 * 12 = 3600 бит = 450 байт.

6, понедельник, иа, 1, на печи,клюв, царь, марка, гласных 10, согласных 21, всего 33

program nn;

uses crt;

var a: array [1..20] of real;

t: real;

i,n,min: integer;

begin

    {ввод последовательности, это самостоятельно}

    min : = 1;

    for i : = 1 to 20 do

    begin

          if  a[i] < a[min] then

                min : = i;

    end;

    t : = a[min];

    a[min] : = a[20-n];

    a[20-n] : = t;

end.

2 = 2^1

8 = 2^3

это значит, что в двоичной системе определяющим является 1 цифра, а в 8-ричной - 3 цифры; разбиваем 2-ичную сис на группы по три числа, и переводим их в другую систему. например в первом будут группы чисел 100, 010,   010, 110; (разбивается с конца, исключаем возможность ошибки) 100 это 4 и т д..