Дана строка текста, состоящая из слов. Слова отделяются друг от друга одним из специальных символов, которые описываются во множестве [‘-’, ‘*’, ‘/’, ‘,’]. Подсчитайте количество разделителей в строке.в паскале.строка дана любая

Предыдущий
вопрос Следующий
вопрос

Пример кода на Pascal:

program CountDelimiters
va
text: string
delimiters: set of char
delimiterCount, i: integer
begi
delimiters := ['-', '*', '/', ',']
delimiterCount := 0
writeln('Введите строку текста:')
readln(text)
for i := 1 to length(text) d
begi
if text[i] in delimiters the
delimiterCount := delimiterCount + 1
end
writeln('Количество разделителей в строке: ', delimiterCount)
end.

Эта программа считает количество разделителей из множества ['-', '*', '/', ','] в строке текста, введенной пользователем.