1. (Е. Джобс) Текстовый файл 24-j5.txt состоит не более чем из 106 символов S, T, O, C, K. Определите максимальное количество подряд идущих комбинаций «KOT».
Для решения данной задачи посимвольно считаем текстовый файл. Объявим переменные: s — строка для работы с символами из файла, s1 подстрока, которая формируется последовательным приосединением комбинаций 'KOT' к предыдущему значению s1. Алгоритм будет находить подстроку s1 в строке s и присваивать переменной l номер позиции, начиная с которой s1 входит в s. Если s1 не найдется в s, переменная l получит значение 0, выполнение цикла завершится. При этом k - длина подстроки s1 - окажется на 3 символа больше, чем последняя найденная в s строка. Количество подряд идущих комбинаций «KOT» вычисляется с помощью операции div 3. Можно использовать оператор while s1 in s do (пока в строке s найдена подстрока s1)
var s,s1: string;
var i, k,l: integer;
begin
assign(input, 'F:/24data/24-j5.txt');
readln(s);
s1:='KOT'; l:=pos(s1,s);
while l >0 do
begin
s1:=s1+'KOT';
l:=pos(s1,s);
end;
k:=length(s1)-3;
writeln(k div 3);
end.