.Дана строка. Подсчитать самую длинную последовательность подряд идущих букв a.Программа в паскаль
.Дана строка. Подсчитать самую длинную последовательность подряд идущих букв 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 m
Не нашли ответ?
Похожие вопросы