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