RosettaCodeData/Task/FizzBuzz/RapidQ/fizzbuzz.rapidq

5 lines
121 B
Text
Raw Permalink Normal View History

2013-04-10 22:43:41 -07:00
FOR i=1 TO 100
t$ = IIF(i MOD 3 = 0, "Fizz", "") + IIF(i MOD 5 = 0, "Buzz", "")
PRINT IIF(LEN(t$), t$, i)
NEXT i