Найти количество едениц в двоичной записи заданного числа. входные данные: во входном файле содержится единственное целое число n (0< =n< =2000000). выходные данные: выходной файл должен содержать одно число - количество двоичных едениц в записи числа n. #| input.txt| output.txt| 1| 5| 2| 2| 16| 1| 3| 121| 5|

Поскольку язык не указан, отвечающий  вправе использовать любой. в данном случае выбран vba из состава microsoft office 2003 (реализация в среде excel). некоторые и господа (обычно школьники и студенты), мнят себя великими программистами и считают семейство языков vb/vba/vbs недостойным упоминания. теперь у них есть возможность написать что-то аналогичное на с++/delphi и сравнить полученные коды с . собственно, описание класса class1: private const n = 12 public sub howmanysucc(byref kol as integer)       dim i as integer, m1 as integer, m as integer       kol = 0       m1 = getint()       for i = 2 to n               m = getint()               if m > m1 then kol = kol + 1       next i end sub private function getint() as integer       dim n as integer       getint = int(val(inputbox("введите целое число" end function вызов для тестирования: sub aa()       dim oc as new class1, k as integer       oc.howmanysucc k       msgbox "целых, больше первого: " + str(k) end sub