Однажды программист Вася решил отправить собственному другу письмо. Он досконально поведал
Единожды программер Вася решил послать своему другу письмо. Он подробно рассказал в нем, как у него дела. И, в конце концов, вышло великое послание. Но почта не позволяет пересылать такие великие письма. После длинных размышлений Вася решил его сжать и для этого вымыслил уникальный способ. Если подряд идут несколько схожих знаков, а поточнее три и более, то он их сменяет на их
количество и знак, который повторяется. Но Вася был нехорошим программистом... Помогите ему сжать письмо.
Входные данные: s
Выходные данные:K
Где: S-письмо не более 255 знаков, K-сжатое письмо
Пример ввода: GGHHHHGDDDDHHHKKKKKJJJ
Пример вывода: GG4HG4D3H5K3J
PascalABC.NET 3.4.2, сборка 1814 от 02.10.2018
begin
ReadString.AdjacentGroup.SelectMany(t -gt; t.Count gt;= 3 ? (t.Count + t[0]).ToCharArray : t).Println;
end.
-
Вопросы ответы
Статьи
Информатика
Статьи
Разные вопросы.
Математика.
Физика.
Геометрия.
Разные вопросы.
Обществознание.
Математика.
Химия.
Русский язык.
Разные вопросы.