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

August 2022 1 14 Report

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

Answers & Comments

petyaGavrikov

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

2 votes Thanks 2

Answers & Comments

Verified answer

dana neubyvayushaya posledovatelnost celyh chisel vstavit v nee celoe chislo b tak

dano urovnennye kolebanij i3sin120pt opredelit amplituduperiodchastotucikl

napisat funkciyu dlya nahozhdeniya summy cifr celogo chisla ispolzuya etu funkciyu v

рекомендуемые вопросы

Helpful Links

Helpful Social