Jumat, 29 Oktober 2010

GENAP GANJIL

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

Jangan lupa kasih komentar nya ya gan...