Написать алгоритм и программу которая определяет сколько раз в данном слове встречается буквосочитание "пол"
133
232
Ответы на вопрос:
Function checkstring( s: string ): integer; var i, k, len: integer; begin len : = length(s); k : = 0; for i : = 1 to len do begin if ( s[i] = 'п' ) then if s[ i + 1 ] = 'о' then if s[ i + 2 ] = 'л' then inc(k); end; checkstring : = k; end; var str: string; rez: integer; begin write('введите слово: '); readln(str); rez : = checkstring(str); if rez > 0 then writeln('буквосочетание "пол" встречается в слове в количестве: ', rez) else writeln('буквосочетание "пол" в слове не встречается'); end.
Популярно: Информатика
-
mmmm5007.05.2023 00:36
-
lyaman200523.01.2020 06:49
-
Dilnaz20030104.03.2023 16:13
-
Nikitos22022010.09.2020 08:45
-
Софія13327.07.2021 19:50
-
Kata8i7786627.05.2021 04:38
-
filimo200002.11.2020 00:15
-
kmvkemerovo12.02.2023 18:12
-
foximmortal03.07.2021 06:40
-
litvinsofia24506.03.2022 07:32