Если хочешь, чтобы проги выдавали только число, убери из них строку <span>Write(N,'! + ');</span>
Ответ: После упрощения получим ¬AvCvB
Лист Excel живой, можно подставить собственные значения.
Лист защищен без пароля, чтобы случайно не повредить формулы
Снимаете защиту, копируете логические элементы, получаете результат.
<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 млн. символов.
N = 2^i
256 = 2^i
i = 8 бит = 1 байт глубина кодирования 1 символа
1/32 Мбайт = 32 Кб = 32768 байт
<span>32768 байт / 1 байт = 32768 символов в тексте</span>