Надо число и получаемые целые частные делить на основание новой системы счисления до тех пор,пока не получим частное меньшее делителя.
затем записать последнее частное и полученные остатки, начиная с конца.
пример во вложении.
0.125×1024=128байт 128×8=1024бит
<em>// PascalABC.NET 3.3, сборка 1583 от 25.11.2017</em>
<em>// Внимание! Если программа не работает, обновите версию!</em>
begin
var s:=ReadlnString;
var c:=s.ToWords.Where(t->t.Length>1).SelectMany(w->w.Pairwise)
.Select(t->t[0]+t[1]).GroupBy(t->t).Select(t->(t.Key,t.Count))
.OrderByDescending(t->t[1]).ThenByDescending(t->t[0]).First[0];
Writeln('Чаще других встречается цепочка "',c,'"')
end.
<u>Пример</u>
TWAS BRILLIG AND THE SLITHY TOVES DID GYRE AND GIMBLE IN THE WABE ALL MIMSY WERE THE BOROGOVES AND THE MOME RATHS OUTGRABE
Чаще других встречается цепочка "TH"
<u>Замечание:</u> ограничение на длину строки увеличено до 2 млн. символов.
Потому, что архитектура современных компьютеров предусматривает обработку данных, содержащих целое число байт и один байт является минимальным размером таких данных.
Система.
Точная, операционная.
Управляет, организует, выполняет.
Быстро вычисляет, обрабатывает данные.
Умная.