Imports System.Console
Module Module1
Dim a, b, c As Long
Sub Main()
Write("Masukan angka : ")
a = ReadLine()
If a Mod 2 = 0 Then
Write(a & " " & " adalah bilangan Genap")
Else
Write(a & " " & "Adalah Bilangan Ganjil")
End If
Read()
End Sub
0 komentar:
Posting Komentar
Silahkan gan komentarnya,,karena komentar anda sangat berarti bagi blog ini...Salam blogger