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 m<b then
m:=b;
b:=0;
end;
writeln(m);
end.

Answer 2

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

Answer 3

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

Answer 4

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 m<b then
m:=b;
b:=0;
end;
writeln(m);
end.

Answer 5

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

Answer 6

http://znanija.com/task/15269416