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

7 lines
117 B
Text
Raw Permalink Normal View History

2017-09-23 10:01:46 +02:00
10 FOR I=1 TO 10
20 PRINT I;
30 IF I/5=INT (I/5) THEN PRINT
40 IF I/5=INT (I/5) THEN NEXT I
50 PRINT ", ";
60 NEXT I