// PascalABC.NET 3.2, сборка 1417 от 28.03.2017 // Внимание! Если программа не работает, обновите версию!
begin var s:=ReadlnString('Введите строку:'); Writeln('Максимальная длина цепочки "а" равна ', s.Matches('(a+)').Select(m->m.Value).SortedDescending. Take(1).JoinIntoString.Length) end.
Пример Введите строку: tbtgt adaaad aa sdfsfswe dsssfsd dfdssdfsf gdff fsqe Максимальная длина цепочки "а" равна 9
0,0(0 оценок)
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota
Оформи подписку
