Посчитать сколько раз в текстовой строке S встретится подстрока S1. Разрешается завести только одну дополнительную строковую переменную.

Pascal.

Var s, s1, s2:string;

k, l, p:integer;

begin

writeln ('Введите строку:');

readln (s);

writeln ('Введите подстроку:');

readln (s1);

l:=length (s1);

s2:=s;

k:=0;

p:=pos (s1, s2);

while p>0 do

begin

k:=k+1;

delete (s2, p, l);

p:=pos (s1, s2);

end;

writeln ('k = ', k);

end.

Пример:

Введите строку:

сколько раз в текстовой строке S встретится подстрока S1

Введите подстроку:

ст

k = 4