RosettaCodeData/Task/FizzBuzz/RapidQ/fizzbuzz.rapidq
Ingy döt Net d066446780 langs a-z
2013-04-10 22:43:41 -07:00

4 lines
121 B
Text

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