Anonymous user
FizzBuzz/Basic: Difference between revisions
no edit summary
mNo edit summary |
No edit summary |
||
Line 44:
END IF
NEXT A</lang>
===Concatenation approach===
Line 64 ⟶ 66:
NEXT A</lang>
See also: [[#RapidQ|RapidQ]]
=={{header|Basic09}}==
<lang Basic09>PROCEDURE FizzBuzz
DIM n:INTEGER
FOR n=1 to 100
IF MOD(n,15)=0 THEN
PRINT "FizzBuzz"
ELSE
IF MOD(n,3)=0 THEN
PRINT "Fizz"
ELSE
IF MOD(0,5)=0 THEN
PRINT "Buzz"
ELSE
PRINT n
ENDIF
ENDIF
ENDIF
NEXT n
END</lang>
=={{header|BBC BASIC}}==
| |||