DECLARE SUB SERIES ()
CLS
CALL SERIES : END
SUB SERIES
N = 1
FOR I = 1 TO 4
FOR J = 1 TO I
PRINT N;
N = N + 1
NEXT J
PRINT
NEXT I : END SUB
10 mins
DECLARE SUB SERIES ()
CLS
CALL SERIES : END
SUB SERIES
N = 1
FOR I = 1 TO 4
FOR J = 1 TO I
PRINT N;
N = N + 1
NEXT J
PRINT
NEXT I : END SUB
No Comments