Задача на Visual Basic

[вася радугов]

Есть задача на бейсике.
Перевести целое десятичное число N, введенное с клавиатуры, в двоичную систему (0<N<256). Подсчитать число единиц в двоичном коде числа.

Подскажите как решить. Бейсик изучаю недавно.

[ViktorR]

Например, так:

<Запрашиваем число.>
<Вводим число N>
<Обнуляем переменную, в которой получим результат: rez =0.>
<Обнуляем переменную для подсчета единиц: n_one = 0>
chastnoe = N
Do While chastnoe > 1  'В цикле, пока частное не станет равным 1 или 0
  <Целочисленно разделить частное на 2 - получить частное.>
  <Целочисленно разделить частное на 2 - получить остаток.>
 If <остаток = 0> then
    сдвиг rez влево
 else
    rez = rez + 1
    сдвиг rez влево
    n_one = n_one + 1
 end If
Next

Операторы:
\ - целочисленное деление и получение частного
Mod - получение остатка
a*2 - простое умножение на 2 эквивалентно сдвигу влево



Где-то так, думаю ...

[Sasha_Smirnov]

Действующая модель: http://programmersforum.ru/showthrea...t=40897&page=2

Сделать подсчёт единиц?