составьте программу подсчета, сколько раз в тексте встречается заданный фрагмент (цепочка символов).

[Конь Антон]

составьте программу подсчета, сколько раз в тексте встречается заданный фрагмент (цепочка символов). Например, "банан упал на барабан" фрагмент "ба" встречается 3 раза.

[newerow1989]

const s='банан упал на барабан';
      ss='ба';
var i,c:integer;
begin
   c:=0;
   For i:=1 to Length(s)+Length(ss)+1 do
      If ss=Copy(s,i,Length(ss)) then
         c:=c+1;
   Writeln(c);
   Readln;
end.

Сойдет?

[Stilet]

c:=c+1;

Я бы сюда еще добавил inc(i,Length(ss))

[newerow1989]

inc(i,Length(ss))

В цикле со счетчиком вряд ли прокатит!

[Аватар]

Там и такой цикл прокатит:

For i:=1 to Length(s) do
или еще лучше
For i:=1 to Length(s)-Length(ss)+1 do

В цикле со счетчиком вряд ли прокатит!

Не прокатит. А речь вот о чем

s:='блаблаблаблабла';
ss:='блабла';

Сколько вхождений? 2 или 4?

[Stilet]

В цикле со счетчиком вряд ли прокатит!

Ну да. И цикл на While поменять