)
если 2+1=3 тогда
х:=3
иначе
если 2=2 тогда
х:=2
y:=x
иначе
х:=1
y:=1
Надо было написать бы еще среду программирования. Пишу на Qbasic
Ответ в приложении, включен режим показа формул
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>