Wednesday, October 16, 2019

QBASIC to dispaly 9, 7, 5,...1 using SUB

DECLARE SUB SERIES ( )
CLS
CALL SERIES
END

SUB SERIES ( )
FOR I = 9 TO 1 STEP -2
PRINT I
NEXT I
END SUB

No comments:

Post a Comment