Количество положительных и отрицательных чисел. (pascal и с++) прошу решить данную в двух или хотя бы в одной. надо.

Переведем 31 в двоичную=11111 -это число rсказано,что оно на два разряда больше,чем исходное nт.е. n=111|11=111прогоним 111 по данному алгоритму: 1)число единиц не четно,значит добавляем 0> > 11102)3/2=1,значит добавляем 1> > 11101видим,что 11101< 11111,значит исходное n увеличиваем на 1,получим 1000прогоняем по алгоритму 1000: 1)число единиц нечетно,добавляем 0> > 100002)остаток от деления числа единиц=1,добавляем 1> > 100001мы получили число  100001-это r.оно больше,чем 11111.переведем его(100001) в десятичную систему счисления=33ответ: 33

Var i: byte;       prod: real;       begin   prod: =1;   for i: =3 to 100 do       if odd(i) then           prod: =prod*i;   writeln('1). произведение первых 100 нечетных натуральных чисел');   writeln(prod);   writeln();     prod: =0;   for i: =2 to 20 do       if not odd(i) then           prod: =prod + i * i;   writeln('2). сумма квадратов всех четных чисел от 2 до 20');   writeln(prod);   writeln(); end.