вот ...................................
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);
<span>end.</span>
Смотря о чем ты
выберешь нужный
1 вариант
Копирование
создание
перемещение
удаление
2 вариант
Это относится к информации вообще
Хранение
Обработка
Передача
выбери что нужно или по канкретней вопрос в коментарии