месяцы,каждый месяц в каждом времени года-это и есть классификация
<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 млн. символов.
1)0000..1111
2)1-01000000
2-1111000[-]
3-1100000[-]
4-00111001
дальше сами - пошёл спать)))
Var
x, n: integer;
begin
x := 1;
readln(n);
while x*x <= n do
begin
writeln(x);
x := x + 1;
end;
end.