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

Question

Информатика

Муся

31 июля, 06:55

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

+1

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

Вот так =)