У меня получилась Криптография-методы шифрования информации
1. существенные признаки объекта-оригинала
2. разные модели объекта
3. схема метро, схема узора для вязания крючком, график зависимости расстояния от времени, физическая карта.
С помощью одного БИТа (двоичного символа) можно закодировать 2 комбинации, 1 или 0.
С помощью 5 битов можно закодировать
2 ^ 5 = 32 символа
2 - двоичный символ
5 - количество этих символов
^ - степень
Sub aaa()
s = InputBox("Введите строку")
n = CInt(InputBox("Введите длину N"))
m = Len(s)
If m > n Then
s = Right(s, n)
Else
If m < n Then s = String(n - m, ".") + s
End If
MsgBox "Результат: " + s, vbInformation
End Sub