Насколько я помню, нужно его постоянно делить на 2 и ответ записывать с конца ( остаток 0 или 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);
<span>end.</span>
Это объект любой окружающего мира