Run Code
|
API
|
Code Wall
|
Misc
|
Feedback
|
Login
|
Theme
|
Privacy
|
Patreon
number from base 10 to base 2
'Rextester.Program.Main is the entry point for your code. Don't change it. 'Compiler version 11.0.50709.17929 for Microsoft (R) .NET Framework 4.5 Imports System Imports System.Collections.Generic Imports System.Linq Imports System.Text.RegularExpressions Namespace Rextester Public Module Program Public Sub Main(args() As string) 'Your code goes here Dim num as integer = console.readline() dim resto as integer = 0 dim str as string = "" do until num < 2 resto = num mod 2 str= resto & str num=num/2 loop str= 1 & str console.writeline(str) End Sub End Module End Namespace
run
|
edit
|
history
|
help
0
liaison v2
jjj
valor maximo entre 3 numeros
vb string search short
3.1
Exercico 3
DateTime.ParseExact
select case
Reed Solomon error correction (success)
rotina de professores (select case)