RosettaCodeData/Task/FizzBuzz/RapidQ/fizzbuzz.rapidq

5 lines
121 B
Plaintext

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