Уважаемые! не в службу , а в дружбу ! с по информатике ! буду признателен ! 3. выполните перевод чисел - id362463220220717 от PolinaZaichko0403 17.07.2022 09:46

Question

Информатика: Уважаемые! не в службу , а в дружбу ! с по информатике ! буду признателен ! 3. выполните перевод чисел в десятичную систему счисления: а) двоичное число 10111 - б) четверичное число 133 - в) восьмеричное число 261 - г) шестнадцатеричное число а6 - д) пятеричное число 43 - 4. сравните числа: a) 143(6) 75(8) б) 285(10) 11d(16) в) 111111(2) 1111(8) г) 6с(16) 101001(2) д) 55(16) 125(8) е) 143(5) 211(3) 5. расставьте в порядке возрастания числа число порядковый номер 35(10) 36(8) 3а(16) 100101(2) 130(4)

PolinaZaichko0403 · Accepted Answer

// PascalABC.NET 3.3, сборка 1583 от 25.11.2017
// Внимание! Если программа не работает, обновите версию!

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.

Пример
TWAS BRILLIG AND THE SLITHY TOVES DID GYRE AND GIMBLE IN THE WABE ALL MIMSY WERE THE BOROGOVES AND THE MOME RATHS OUTGRABE
Чаще других встречается цепочка "TH"

Замечание: ограничение на длину строки увеличено до 2 млн. символов.

MOGZ ответил