QBasic to display 1,1,2,3,5,8....10th term

CLS
A = 1
B = 1
FOR I = 1 To 10
C = A + B
A = B
B = C
NEXT I
END

QBasic to display multiplication table

CLS
INPUT "Enter any number"; N
FOR I = 1 TO 10
PRINT N; " X " ; I ; " = " ; N * I
NEXT I
END

QBasic to display factorial

CLS
INPUT "Enter any number";N
F = 1
FOR I = 1 To N
F = F * I
NEXT I
PRINT "Factorial number";F
END

QBasic to display factor

CLS 
INPUT "Enter any number";N
FOR I = 1 To N
IF N MOD I = 0 THEN PRINT I
NEXT I
END

QBasic to dislpay prime or composite

CLS

INPUT "ENTER ANY NUMBER"; N

C = 0
FOR I = 1 TO N

IF N MOD I = 0 THEN C = C + 1

NEXT I

IF C = 2 THEN

PRINT N; "IS PRIME NUMBER"

ELSE

PRINT N; "IS COMPOSITE NUMBER"

END IF

END

QBasic to dislpay armstrong or not

CLS
INPUT "Enter a number"; N
A = N
S = 0
WHILE N <> 0
R = N MOD 10
S = S + R ^ 3
N = N \ 10
WEND
IF A= S THEN
PRINT "It is armstrong number";
ELSE
PRINT "It is not armstrong number";
END IF
END

QBasic to find palindrome or not

CLS
INPUT "Enter any number"; N
A = N
S = 0
WHILE N <> 0
R = N MOD 10
S = S * 10 + R
N = N \ 10
WEND
IF A = S THEN
PRINT"the given number is palindrome"
ELSE
PRINT"the given number is not palindrome"
END IF
END

QBasic to find reverse

CLS
INPUT "Enter any number"; N
S = 0
WHILE N <> 0
R = N MOD 10
S = S * 10 + R
N = N \ 10
WEND
PRINT "Reversed digits is "; S
END

QBasic to display product of digit

CLS

INPUT "ENTER ANY NUMBER"; N

P = 1

WHILE N < > 0

R = N MOD 10

P = P * R

N = N \ 10

WEND

PRINT "PRODUCT OF DIGITS"; P

END

QBasic to display sum of digit

CLS
INPUT"Enter any number";N
S=0
WHILE N<>10
R=N MOD 10
S=S+R
N=N\10
WEND
PRINT"Sum of digits";S
END

QBasic to display greater among three number

CLS
INPUT"Enter any number";N
IF A>B and B>C THEN
PRINT"Greater number is";A
ELSE IF B>A and B>C THEN
PRINT"Greater number is";B
ELSE
PRINT"Greater number is";C
END IF 
END