QBasic to display 1,22,333,4444,55555

CLS
FOR I = 1 To 5
FOR J = 1 To I
PRINT I;
NEXT J
PRINT
NEXT I
END

QBasic to display 1,12,123,1234,12345

CLS
FOR I = 1 To 5
FOR J=  1 To I
PRINT J;
NEXT J
PRINT 
NEXT I
END

QBasic to display 5,10,15,20....10th term

CLS
A=5
FOR I=1 TO 10
PRINT A
A=A+5
NEXT I
END

QBasic to display 1,4,9,16....10th term

CLS
FOR I=1 TO 10
PRINT  I^2
NEXT I 
END

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