Сколько единиц в двоичной записи числа 7c(в шестнадцатиричной системе счисления)?

7с-> 124  в десятичной -> 1111100 в двоичной -> 5 единиц

// pascalabc.net 3.3, сборка 1583 от 25.11.2017 // внимание! если программа не работает, обновите версию! begin   writeln(readseqintegerwhile(t-> t< > 0).where(t-> t.iseven).sum) end. пример -65 973 571 -101 426 326 207 -85 850 551 713 340 766 0 2708 begin   writeln(readseqintegerwhile(t-> t< > 0).where(t-> t.iseven).count) end. пример -65 973 571 -101 426 326 207 -85 850 551 713 340 766 0 5 begin   writeln(readseqintegerwhile(t-> t< > 0).aggregate(biginteger(,y)-> x*y)) end. пример -65 973 571 -101 426 326 207 -85 850 551 713 340 766 0 -775118121479521866390147967800000

//pascal // 1) var x, y: integer; begin write('введите x y: '); read(x, y); if x > y then writeln(x - y) else   writeln(y - x); end. // 2) var a, b, c: integer; begin write('введите a b c: '); read(a, b, c); if (a > (b + c)) then writeln(a) else writeln(b + c); end. // 3) var x, k: integer; begin write('введите x k: '); read(x, k); if k = 1 then writeln(sin(x)) else if k = 2 then writeln(cos(x)) else writeln('k должен быть равен 1 или 2.'); end. // 4) var p, m: integer; begin   write('введите p, m: ');   read(p, m);   if p > m * 2 then       writeln(p)   else       writeln(m * 2); end.