Работа 3.8 Упр.14 ГДЗ Семакин 10 класс (Информатика)

Задача

Дана строка. Подсчитать самую длинную последовательность подряд идущих букв «а».

Подробный ответ

Нужно пройти по строке слева направо и считать длину текущей подряд идущей серии букв $$a$$. Если очередной символ равен $$a$$, увеличиваем счётчик серии. Если символ другой, сравниваем длину серии с максимальной, запоминаем большее значение и обнуляем текущий счётчик.

После окончания просмотра строки нужно ещё раз сравнить последнюю серию с максимальной, так как строка может заканчиваться буквой $$a$$.

var i, sum, max: integer;
s: string;
begin
  writeln(‘Vvedite stroku’);
  readln(s);
  sum := 0;
  max := 0;
  for i := 1 to length(s) do
  begin
    if s[i] = ‘a’ then
      sum := sum + 1
    else
    begin
      if sum > max then
        max := sum;
      sum := 0;
    end;
  end;
  if sum > max then
    max := sum;
  writeln(max);
end.