FizzBuzz/Basic: Difference between revisions

moving PureBasic
(moving Liberty BASIC)
(moving PureBasic)
Line 98:
end select
next i</lang>
 
 
=={{header|PureBasic}}==
<lang purebasic>OpenConsole()
For x = 1 To 100
If x%15 = 0
PrintN("FizzBuzz")
ElseIf x%3 = 0
PrintN("Fizz")
ElseIf x%5 = 0
PrintN("Buzz")
Else
PrintN(Str(x))
EndIf
Next
Input()</lang>
Anonymous user