RosettaCodeData/Task/Loops-Do-while/QB64/loops-do-while-1.qb64

5 lines
53 B
Plaintext

DO
PRINT n
n = n + 1
LOOP WHILE n MOD 6 <> 0