<em>// PascalABC.NET 3.3, сборка 1573 от 04.11.2017</em>
<em>// Внимание! Если программа не работает, обновите версию!</em>
begin
var a:=ArrRandom(7,-5,5); a.Println(',');
a.Transform(t->t>3?-10:t+2); a.Println(',')
end.
<u>Пример</u>
-2,-1,4,2,5,0,2
0,1,-10,4,-10,2,4
20 букв и 10 цифр составляют алфавит объемом 30 символов. Для размещения 30 символов требуется 5 бит (2^5=32 - достаточно, а 2^4=16 - не хватает).
Для одного 8-символьного номера требуется 5х8=40 бит.
Для 40 номеров потребуется 40х40=1600 бит. Или 1600/8=200 байт.
Таблицы созданы, связь установлена, запрос сформирован. Данные надо будет набить. Базу данных сюда прикрепить нельзя. Выложена тут: https://yadi.sk/d/a2sdyUO5TVd45