Спаскалем, ! с клавиатуры вводятся строки s и s1. узнайте, сколько раз s1 встречается в s. оформите решение в виде функции.
153
500
Ответы на вопрос:
Var s,s1: string; i,n,n1,k,p: integer; begin write('введите строку: '); readln(s); n: =length(s); write('введите подстроку: '); readln(s1); n1: =length(s1); k: =0; i: =1; while i< =n-n1+1 do begin p: =pos(s1,s,i); if p> 0 then begin inc(k); i: =p+n1 end else i: =n; { для выхода } end; writeln(s1,' встречается в ',s,' ',k,' раз(а)') end. пример введите строку: наша таня громко плачет: уронила в речку мячик введите подстроку: ро ро встречается в наша таня громко плачет: уронила в речку мячик 2 раз(а)
Линейный алгоритм - алгоритм, в котором все шаги выполняются друг за другом один раз в порядке их следования.
Популярно: Информатика
-
Ksysoeva2004.04.2020 04:41
-
дочь2023.08.2020 17:27
-
Misaki5908.02.2023 06:31
-
RokkuKun25.06.2023 09:57
-
348278552511.10.2020 04:38
-
ВЕ200730.11.2022 23:31
-
ikilan20102.03.2020 16:31
-
Есения151129.06.2023 05:52
-
shorgk24.06.2022 08:23
-
kh13115.04.2023 07:05