Question

Write a QBasic program to enter any number and find sum of its factors

Answer 1

CLS

INPUT "ENTER ANY NUMBER"; N

S = 0

FOR I = 1 TO N

IF N MOD I = 0 THEN S = S + I

NEXT I

PRINT "SUM OF FACTORS="; S

END

Answer 2

Answer:

REM SUM OF FACTORS OF A NUMBER

CLS

INPUT N

FOR I=1 TO N

IF N MOD I=0 THEN

SUM=SUM+I

ENDIF

NEXT I

PRINT SUM

END