Run Code
|
Code Wall
|
Users
|
Misc
|
Feedback
|
About
|
Login
|
Theme
|
Privacy
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
Please
log in
to post a comment.
19 11 2019 exercicio 2 equaçao
Exercico 5
gf
ex4
valor maximo entre 3 numeros
"No Fear Shakespeare" sonnet of the day ... (doy modulo 154)+1
CAI - Visual Basic - Libreria de funciones
Declaração de Variaveis
String
CAI Visual Basic - Ej Gastos Chofer
Please log in to post a comment.