Вводятся подстрока и строка. определить, сколько раз данная подстрока входит в строку?

Question

Информатика

Полюха

12 февраля, 07:57

Вводятся подстрока и строка. определить, сколько раз данная подстрока входит в строку?

+4

Ответы (1)

Знаете ответ на вопрос?

Рима · Answer 1

Var count, P: integer;

S, PS: string;

Begin

readln (S, PS) ;

P:=POS (PS, S) ;

while P>0 do

begin

count : = count + 1;

Delete (S, P, Length (PS)) ;

P:=POS (PS, S) ;

end;

writeln (count) ;

end.

Вот так =)