17 lines
295 B
Text
17 lines
295 B
Text
|
'Free BASIC
|
||
|
|
DIM AS ULong n
|
||
|
|
|
||
|
|
FOR n = 1 TO 100
|
||
|
|
|
||
|
|
If n MOD 15 = 0 Then
|
||
|
|
PRINT "FizzBuzz"
|
||
|
|
ElseIF n MOD 3 = 0 Then
|
||
|
|
PRINT "Fizz"
|
||
|
|
ElseIF n MOD 5 = 0 Then
|
||
|
|
PRINT "Buzz"
|
||
|
|
Else
|
||
|
|
PRINT ; n
|
||
|
|
End If
|
||
|
|
|
||
|
|
NEXT n
|