Вводятся подстрока и строка

Question

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

Answer 1

33

sergey12

30 марта 2023

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. Вот так=)

пользователи выбрали этот ответ лучшим

комментировать

в избранное ссылка отблагодарить

Email:
Пароль:
	забыли пароль?

Логин:
Email:
Пароль: