fork download
copy 
  1. Imports System
  2.  
  3. Public Class Test
  4. 	Public Shared Sub Main()
  5. 		Dim number As Long
  6. 		Do
  7. 			Console.Write("Enter a number greater than 1: ")
  8. 			number=CLng(Console.ReadLine)
  9. 		Loop Until number>1
  10. 		Do
  11. 			Console.Write(number.ToString & " ")
  12. 			number=IIf(number Mod 2=0, number/2, 3*number+1)
  13. 		Loop Until number=1
  14. 		Console.WriteLine(number)
  15. 	End Sub
  16. End Class
Success #stdin #stdout 0.03s 26812KB
comments (?)
stdin
copy 
-3
7
stdout
copy 
Enter a number greater than 1: Enter a number greater than 1: 7 22 11 34 17 52 26 13 40 20 10 5 16 8 4 2 1
https://ideone.com/lW40Zb
language:
VB.net (mono 4.7)
created:
2 days ago
visibility:
public

Share or Embed source code

Discover > Sphere Engine API

The brand new service which powers Ideone!

Discover > IDE Widget

Widget for compiling and running the source code in a web browser!