Срочно, высокий балл, первому лучший ответПодсчитать сколько раз в текстовой строке S...

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.

Comments

не верно выдает нуль (