Дана строка текста, состоящая из слов. Слова отделяются друг от друга одним из...

Question

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

Answer 1

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.