Lenguaje simple. Escriba un programa que ingrese un número entero y determine si es divisible por 3 o 5. Si es divisible, genere el número; de lo contrario, no genere el número.
.Ventana de ensamblaje ensamblaje 1
.Subroutine_Button1_Clicked
.El juicio comienza (al valor (cuadro de edición 1. contenido) 3 = 0 y a el valor (cuadro de edición 1. contenido) 5 = 0)
Cuadro de mensaje ("Divisible por 3 y divisible por 5" # Salto de línea "El resultado es:" al texto (al valor (cuadro de edición) 1. contenido) ÷ 3) # Wrap "El resultado es:" al texto (al valor (cuadro de edición 1. contenido) ÷ 5), 0,)
. Juicio (al valor (cuadro de edición1. contenido) ) 5 = 0)
Cuadro de mensaje ("Divisible por 5" # Salto de línea "El resultado es:" al texto (al valor (editbox1.content) ÷ 5), 0,)
.Juicio (a valor (editbox1.content) 3 = 0)
Cuadro de mensaje ("Divisible por 3" # Salto de línea"El resultado es:" a texto (a valor (editbox1.content) ) ÷ 3), 0, )
. Valor por defecto
Cuadro de información ("No divisible por 3 ni por 5", 0,)
Fin del juicio
.