Microsoft Small Basic

Program Listing: PMT358
'Esta aplicacion hace parte del curso de robotica para niƱos
'dictado en la universidad sergio arboleda
'Bogota Colombia
'visitanos en:
' www.roboticaenlasergio.wordpress.com

' Este programa prueba si un numero es par o impar
'y lo muestra en pantalla

'En este programa se muestra el empleo de la funcion if
'y se introduce el objeto math

'Creamos una ventana de texto
TextWindow.Show()
' leemos del usuario dos numeros en las variables a y b
TextWindow.WriteLine("Este programa identifica")
TextWindow.WriteLine("los numero pares")
TextWindow.WriteLine("")
TextWindow.WriteLine("Digita el numero a probar")
numero=TextWindow.Read()
residuo = Math.Remainder(numero,2)
texto="impar"
If residuo=0 then
texto="par"
EndIf

TextWindow.WriteLine("El numero "+ numero + " es "+ texto)
b=TextWindow.Read()