Посчитать сколько раз в текстовой строке S встретится подстрока S1. Разрешается завести только одну дополнительную строковую переменную.
Pascal.
Pascal.
More Questions From This User See All
Copyright © 2025 SCHOLAR.TIPS - All rights reserved.
Answers & Comments
Verified answer
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