Wednesday, October 16, 2019

QBASIC to diaply 50, 42, 35, 29, 24.. 10th term using SUB

DECLARER SUB SERIES( )
CLS
CALL SERIES
END

SUB SERIES( )
A = 50
B = 8
FOR I = 1 TO 10
PRINT A
A = A - B
B = B - 1
NEXT I
END

No comments:

Post a Comment