Сколько единиц в двоичной записи десятичного числа 307?

307=1*0*0*1*1*0*0*1*1 ответ: 5единиц

Число 307 в двоичной записи выглядит вот так :   100110011соответственно 5  единиц. (перевести число 307 в двоичную систему и  просто посчитать  единицы)

Const       g = ['а', 'е', 'ё', 'и', 'о', 'у', 'ы', 'э', 'ю', 'я']; var       s: string;       k, i: integer; begin       readln(s);       s : = ' ' + lowercase(trim(s));             k : = 0;       for i : = 1 to length(s) do               if (s[i] = ' ') and not (s[i + 1] in g) then                       k : = k + 1;             writeln(k); end.

Сделано на паскале, тот же делфи, но возможно придется разтосовать кусками, в зависимости от тго что именно надо получить в конце const       n = 25; var       i, imax: integer;       s, s7: real;       a, b: array[1..n] of real; begin       imax : = 1;       for i : = 1 to n do       begin               a[i] : = random(10 + 50) - 10;               write(a[i], ' ');                             s : = s + a[i];               if (a[i] > 0) and (round(a[i]) mod 7 = 0) then                       s7 : = s7 + a[i];               s : = s + a[i];               if a[imax] < a[i] then imax : = i;       end;       writeln();             a[imax] : = s / n;             for i : = 1 to n do               write(a[i], ' ');       writeln();             writeln(s7); end.