Задание:
Дана строка текста, состоящая изслов. Слова отделяются друг от друга одним из специальных символов, которые описываются во множестве [‘-’, ‘*’, ‘/’, ‘,’]. Подсчитайте количество разделителей в строке. В паскале. Строка дана любая
Решение:
Var s: string; i,a: longint; beginreadln (s); for i: =1 to length (s) doif (s[i]='-') or (s[i]='*') or (s[i]='/') or (s[i]=',') theninc (a); writeln (a); end.
Знаете другой ответ?