Question

WAP in QBASIC to calculate the sum of all the even numbers within 1 to 100​

Answer 1

Answer:

CLS

CALL SERIES

END

SUB SERIES

FOR I = 1 TO 100

S = S + 1

NEXT

PRINT “SUM OF ALL NATURAL NUMBERS FROM 1 TO 100=”; S

END