Меню сайта

Задача №10

Дана символьная строка. -Найти наибольшую последовательность букв а.


program string_10-

var s,max,p:string-

i,m,k:integer-

begin write(‘введите текст:’)-

readln(s)-

s:=s+’.’-

max:=»-

p:=»-

i:=1-

m:=0-

k:=0-

repeat if s[i]=’a’

then begin p:=p+s[i]-

k:=k+1-

end

else if k&gt-m then begin max:=p-

m:=k-

k:=0-

p:=»-

end-

i:=i+1

until s[i]=’.’-

writeln(‘длина наибольшей последовательности -=’,m)-

readln-

end.

Категория: Строки | Дата: 19.01.13

Меню раздела
Блок