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:
:a: :b: :c: :d: :e: :f: :g: :h: :i: :j: :k: :l:
Posting Komentar
Silahkan gan komentarnya,,karena komentar anda sangat berarti bagi blog ini...Salam blogger