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

[Akerman]

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

[p51x]

И? Обычный цикл же, простейший же...

[Akerman]

Для меня не простейший.

[Aleksandr H.]

c:=0;
min:=0;
s := s + " "; <==подсказка из следующего сообщения
for i:=1 to length(s) do
begin
if s[i]="a" then inc(c)
else
begin
if c>min then min:=c;
c:=0;
end
end;
writeln(min);

[Serge_Bliznykov]

Akerman, свои попытки решения были? Покажите код, который Вам удалось написать.

Aleksandr H., проверьте свой код, например, на строчке: abacaaaaa

[Aleksandr H.]

Сообщение от Serge_Bliznykov

Aleksandr H., проверьте свой код, например, на строчке: abacaaaaa

согласен без проверки. перед циклом надо добавить " " после фразы. исправлю сообщение выше