Question

Срочно, высокий балл, первому лучший ответПодсчитать сколько раз в текстовой строке S встретится подстрока S1. Пример работы правильной программы:Исходные данныестрока S: четыре черненьких чумазеньких чертенка чертили черными чернилами чертежподстрока S1: чернОтвет:подстрока "черн" в строке "четыре черненьких чумазеньких чертенка чертили черными чернилами чертеж" встречается 3 раз(а).Подправить код, на данный момент при таком раскладе выдает ответ 0.

Answer 1

После " for i := 1 to length(s) do"
Вставь вот это и проверь:
if (s[i] = 'с') then kol:=kol+1;
writeln(kol);
readln
end.