• Дана послeдоватeльность из n символов. Подсчитать наибольшее число букв “а” идущих подряд в данной последовательности. Паскаль, пожалойста. Помогите

Ответы 1

  • // 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 sdfsfsaaaaawe dsssfsd dfdsaaaaaaaaasdfsf gdff fsaaaaaaqeМаксимальная длина цепочки "а" равна 9
  • Добавить свой ответ

Войти через Google

или

Забыли пароль?

У меня нет аккаунта, я хочу Зарегистрироваться

How much to ban the user?
1 hour 1 day 100 years