RosettaCodeData/Task/Loops-Continue/PureBasic/loops-continue.basic

13 lines
147 B
Text
Raw Permalink Normal View History

2023-07-01 11:58:00 -04:00
OpenConsole()
For i.i = 1 To 10
Print(Str(i))
If i % 5 = 0
PrintN("")
Continue
EndIf
Print(",")
Next
Repeat: Until Inkey() <> ""