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

Question

Информатика

Муся

21 января, 18:43

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

+2

Ответы (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.

Вот так =)