Составить программку перевода естественного числа из десятичной системы счисления в

В общем, как видите, решение Вашего задания никаких проблем не вызвало. Самостоятельно от языка программирования))

Я не информатик, я по диплому незапятнанный технарь. У меня была тема диплома "Автоматическая система централизованного электропитания сварочного цеха" )))

Великолепная тема,случаем не на "красноватый" окончили?)

Кстати спасибо за ответ

Нет. У меня была одна тройка и я принципно отказался ее пересдавать. По экономике социализма. Я произнес, что таковой науки нет и это бред.

Т.е. экономика капитализма была сдана на отлично. Но там в базе был "Капитал" К.Маркса и сходственные вещи, т.е. классика. А классиков в экономике социализма мне кто с кафедры экономики так и не назвал)) Я и сказал, что не буду время расходовать на то, чего не существует))

Вот ,только жалко ,Что красные корочки нашего медли ,все менее необходимы

Они и в мое время ничего нее решали

Еще раз благодарю, я отлучаюсь на сон,всего для вас наихорошего

Обоюдно. Фортуны.

Function Dec2Bin(ByVal x As Integer) As String

   Dim t As Integer, r As String

   r = "": t = x

   While t gt;= 2

       r = Trim(Str(t Mod 2)) + r

       t = t \ 2

   Wend

   Dec2Bin = Trim(Str(t)) + r

End Function

Sub test()

   MsgBox Dec2Bin(35)

End Sub