.Дана строка. Подсчитать самую длинную последовательность подряд идущих букв a.Программа в паскаль
Answers & Comments
fikort
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.
fikort
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.
Answers & Comments
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.
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.