Imports System.Console
Module Module1
Dim a, b, c As Long
Sub Main()
Write("Masukan Bilangan : ")
a = ReadLine()
Write("Masukan Pangkat : ")
b = ReadLine()
c = a ^ b
Write("hasil : " & c)
Read()
End Sub
End Module
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