слов. Слова отделяются друг от друга одним из специальных символов, которые

описываются во множестве [‘-’, ‘*’, ‘/’, ‘,’]. Подсчитайте количество разделителей

в строке.в паскале.строка дана любая

Ответы:

var s:string,

i,a:longint,

begin

readln(s),

for i:=1 to length(s) do

if (s[i]=-) or (s[i]=*) or (s[i]=/) or (s[i]=,) then

inc(a),

writeln(a),

end.