RosettaCodeData/Task/Loops-Continue/True-BASIC/loops-continue.basic

11 lines
192 B
Text
Raw Permalink Normal View History

2023-07-01 11:58:00 -04:00
FOR i = 1 TO 10
PRINT STR$(i);
IF REMAINDER(i, 5) = 0 THEN
PRINT
ELSE !No existe el comando CONTINUE
PRINT ", ";
END IF
NEXT i
PRINT
END