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

var s,s1,s2:string;k,l,p:integer;beginwriteln('Введите строку:');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