<span>1) Вставка, удаление, замена, поиск и замена
2) {↑}
{End}
{Home}
{→}
{PageUp}
3) Видеоинформация
</span>
<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)64х бит=128 байт
х=128:64
х=2
Ответ:х=2
Uses crt;
var i,n,p,k:integer;
begin
clrscr;
readln(n);
for i:=2 to n div 2 do
if (n mod i = 0) then inc(k);
if k =0 then writeln('simple')
else writeln('not simple');
readln
end.