fork download
copy 
  1. '
  2. '	Задача:
  3. '	- из черт-знает-откуда
  4. '	- автор ребята-черт-из-знает-кто
  5. '	Решение:
  6. '	- автор "Идиот&Idiot, Мистер Шизофренник"
  7. '	- цена 1.08 грамм золота
  8. '
  9.  
  10. Imports System
  11.  
  12. Public Class Test
  13. 	Public Shared Sub Main()
  14. 		Dim money
  15. 		Dim metall
  16. 		Dim oil
  17. '		Dim 
  18. 		Dim company
  19. 		Dim guys
  20. 		Dim religion
  21. '		Dim	Orthodox
  22. 		Dim workers
  23. 		Dim employees
  24. 		Dim employers
  25. 		if true then
  26. 			Dim prompt
  27. 			prompt = ">"'
  28.  
  29. 		end if
  30.  
  31. 		Dim number
  32. 		number = 8
  33. 		dim add
  34. 		do
  35. 			Dim subject
  36.  
  37. 		loop until true
  38.  
  39. 		dim n
  40. 		n = number
  41. 		do while n < 15
  42. 			dim add
  43. 			add =  add + n
  44.  
  45. 			n = n + 1
  46. 		loop
  47.  
  48.  
  49.  
  50. 	End Sub
  51. End Class
Success #stdin #stdout 0.07s 29504KB
comments (?)
stdin
copy 
Standard input is empty
stdout
copy 
Standard output is empty
https://ideone.com/zGstks
language:
VB.NET (mono-3.10)
created:
9 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!