| |||
| HOME ПРИМЕРЫ THANKS НОВИЧКАМ ДОКИ LINKS JavaScript Mail | |||
 | |||
| |||
| |
|
var s:string; ch:char; k,m,mmax,mmin,n:byte; L:byte absolute s; { l - length of string s } { n - число цепочек символа mmin - длина минимальной цепочки mmax - длина максимальной цепочки } begin s:='There is an example teeeeeext. ee teee freeeee pleeeease'; {readln(s);} k:=1; n:=0; ch:='e'; mmax:=0; mmin:=L; repeat while (s[k]<>ch) and (k<=L) do inc(k); if (s[k]=ch) then begin m:=0; while (s[k]=ch) and (k<=L) do begin inc(k);inc(m); end; if (m>mmax) then mmax:=m; if (m end; until (k>=l); writeln(' Строка: ',s); writeln(' Поиск символа ',ch); writeln(' Всего цепочек символа: ',n); writeln(' Длина минимальной цепочки: ',mmin); writeln(' Длина максимальной цепочки: ',mmax); end.
|
|
HOME |