fork download
copy 
  1. Imports System
  2.  
  3. Public Class Test
  4. 	Public Shared Sub Main()
  5. 		dim a as integer, b as integer, c as integer
  6. 		a=console.readline'6
  7. 		b=10
  8. 		c = Gcd(a,b)
  9. 		console.writeline(c)
  10. 	End Sub
  11.  
  12. 	Private shared Function Gcd(a, b)
  13. 		Dim i as Integer
  14. 		i = 2
  15. 		Do Until i mod a = 0 And i mod b = 0
  16. 			i=i+1
  17. 		loop
  18. 		return i
  19. 	End Function
  20. End Class
  21.  
Success #stdin #stdout 0.09s 25720KB
comments (?)
stdin
copy 
2
10
42
11
stdout
copy 
10
https://ideone.com/4z7avA
language:
VB.NET (mono-3.10)
created:
9 years 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!