Посчитать сколько раз в текстовой строке 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