Определить общее количество операций сложения (+), вычитания (-) и умножения (*) в заданном арифметическом выражении.
Входные данные
В одной строке задано арифметическое выражение, не содержащее скобок и пробелов. Количество символов в выражении не превышает 250.
Выходные данные
Вывести количество указанных операций.
Решение
var text: string[255];
index, count: integer;
begin
readln(text);
count := 0;
for index := 2 to length(text) do
if (text[index] = '+') or (text[index] = '-') or (text[index] = '*') then
inc(count);
writeln(count);
end.