Дана строка текста, состоящая из

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

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

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

Question

Информатика

Агриппа

15 мая, 17:59

Дана строка текста, состоящая из

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

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

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

+2

Ответы (1)

Знаете ответ?

Гошуня · 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.