Request Dari KHézié LøvìñG'ü Ælwåys
Input n : 6
hasil : 2 1 4 3 6 5
Coding:
Imports System.Console
Module Module1
Sub Main()
Dim d, i, y As Integer
Dim hasil As Integer
Write("Masukan Banyaknya bilangan genap : ")
i = ReadLine()
For d = 1 To i Step 1
If d Mod 2 = 0 Then
y = 2 * d - (d + 1)
Else
y = 2 * d - (d - 1)
End If
hasil = hasil + y
Write(y)
Next d
WriteLine("")
Write("total= ")
Write(hasil)
ReadLine()
End Sub
End Module