Приведём решение на языке Python.

f=open('1_24.txt')
s=f.readline()
f.close()
s=s.split('BC')
print(s)
max_len=0
for i in range(len(s)-190):
st='BC'.join(s[i:i+191])
if max_len Ответ: 2287.

Приведём решение на языке Python.

s=open('24.txt').readline()
k=190
ndx=[-1]+[i for i in range(len(s)) if s[i:i+2]=='BC']+[len(s)-1]
d=[ndx[i+k+1]-ndx[i] for i in range(len(ndx)-k-1)]
print(max(d))

Приведём решение Сергея Донец на языке PascalABC.NET.

begin
var t:=ReadAllText('24_89761.txt');
t:=t.Replace('BC','B C');
var d:=t.Split.Select(s->s.length);
d.Nwise(190+1).Max(s->s.Sum).Print;
end.