120. QBASIC program to find the sum of square of first 10 integers.

120. Write a QBASIC program to find the sum of square of first 10 integers.

DECLARE SUB SERIES ( )

CLS

CALL SERIES

END

SUB SERIES

FOR I = 1 TO 10

S = S + I ^ 2

NEXT I

PRINT “SUM OF SQUARE FIRST 10 INTEGERS=” ; S

END SUB