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

Question

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

Answer 1

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.

Comments

выводит 0,почему?

---

в программе считается кол-во русских "а", если хочешь считать английские вставь строчку if s[i]='a' then

---

всё равно 0 выводит

---

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

---

Когда копировал пропустил строчку

---

http://znanija.com/task/15269416