Опубликовано 12.06.2017 по предмету Информатика от Гость >> <<

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

Ответ оставил Гость

Var
s:string;
i,b,m:integer;
begin
readln(s);
b:=0;
m:=0;
for i:=1 to length(s) do
if s[i]=а then 
inc(b)
else
begin
if mm:=b;
b:=0;
end;
writeln(m);
end.

Оцени ответ