'   Autor : Hernán Toro
'   Lenguaje : VB.Net
'   Descripcion : este programa calcula promedio de dos notas
 
Imports System
 
Public Class Test
   Public Shared Sub Main() 
       	Dim nombre As String
    	Dim calif1 As Double
    	Dim calif2 As Double
    	Dim notaFinal As Double
    	Dim mensaje As String
 
	System.Console.Write("Entre nombre: ")
       	nombre = Console.ReadLine
	System.Console.Write("Entre nota 1: ")
	calif1 = Console.ReadLine
	System.Console.Write("Entre nota 2: ")
	calif2 = Console.ReadLine
 
	notaFinal = (calif1 + calif2) / 2
 
	If (notaFinal >= 60) Then
        	mensaje = " Aprobo"
    	Else
        	mensaje = " Reprobo"
    	End If
        	System.Console.WriteLine(nombre & " " & notaFinal & mensaje)
	'System.Console.Write(" ")
	'System.Console.Write(notaFinal)
	'System.Console.WriteLine(mensaje)
   End Sub
End Class
 

JyAgIEF1dG9yIDogSGVybsOhbiBUb3JvCicgICBMZW5ndWFqZSA6IFZCLk5ldAonICAgRGVzY3JpcGNpb24gOiBlc3RlIHByb2dyYW1hIGNhbGN1bGEgcHJvbWVkaW8gZGUgZG9zIG5vdGFzCgpJbXBvcnRzIFN5c3RlbQoKUHVibGljIENsYXNzIFRlc3QKICAgUHVibGljIFNoYXJlZCBTdWIgTWFpbigpIAogICAgICAgCURpbSBub21icmUgQXMgU3RyaW5nCiAgICAJRGltIGNhbGlmMSBBcyBEb3VibGUKICAgIAlEaW0gY2FsaWYyIEFzIERvdWJsZQogICAgCURpbSBub3RhRmluYWwgQXMgRG91YmxlCiAgICAJRGltIG1lbnNhamUgQXMgU3RyaW5nCgoJU3lzdGVtLkNvbnNvbGUuV3JpdGUoIkVudHJlIG5vbWJyZTogIikKICAgICAgIAlub21icmUgPSBDb25zb2xlLlJlYWRMaW5lCglTeXN0ZW0uQ29uc29sZS5Xcml0ZSgiRW50cmUgbm90YSAxOiAiKQoJY2FsaWYxID0gQ29uc29sZS5SZWFkTGluZQoJU3lzdGVtLkNvbnNvbGUuV3JpdGUoIkVudHJlIG5vdGEgMjogIikKCWNhbGlmMiA9IENvbnNvbGUuUmVhZExpbmUKCQoJbm90YUZpbmFsID0gKGNhbGlmMSArIGNhbGlmMikgLyAyCgkKCUlmIChub3RhRmluYWwgPj0gNjApIFRoZW4KICAgICAgICAJbWVuc2FqZSA9ICIgQXByb2JvIgogICAgCUVsc2UKICAgICAgICAJbWVuc2FqZSA9ICIgUmVwcm9ibyIKICAgIAlFbmQgSWYKICAgICAgICAJU3lzdGVtLkNvbnNvbGUuV3JpdGVMaW5lKG5vbWJyZSAmICIgIiAmIG5vdGFGaW5hbCAmIG1lbnNhamUpCgknU3lzdGVtLkNvbnNvbGUuV3JpdGUoIiAiKQoJJ1N5c3RlbS5Db25zb2xlLldyaXRlKG5vdGFGaW5hbCkKCSdTeXN0ZW0uQ29uc29sZS5Xcml0ZUxpbmUobWVuc2FqZSkKICAgRW5kIFN1YgpFbmQgQ2xhc3MK

UGVkcm8KNTYKNzA=

Pedro
56
70