Вводятся подстрока и строка. определить, сколько раз данная подстрока входит в строку?
115
125
Ответы на вопрос:
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.вот так =)
Популярно: Информатика
-
pyzasv01.08.2021 13:47
-
tigersarecool05.10.2022 14:58
-
nastyamamontova25.09.2020 01:12
-
NikaSempay20.03.2021 15:03
-
МировойПельмень08.03.2023 19:23
-
annakokesnik12.09.2020 10:52
-
Sadovnik1112.08.2021 13:39
-
вова95320.05.2021 21:12
-
Daavv3309.04.2022 09:23
-
976Марина111111111120.07.2021 04:21