WAP 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

WAP TO DISPLAY 1,11,111,1111,11111

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

WAP TO DISPLAY 1,22,333,4444,55555

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

WAP TO DISPLAY 5,10,15,20.......1OTHTERM

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

WAP TO DISPLAY 1,4,9,16..........10th term

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

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

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

Wap to display multiplication table

CLS
INPUT "Enter any number"; n
FOR i = 1 TO 10
    a = n * i
    PRINT n; "x"; i; "="; a
NEXT i
END

Wap to display factorial

CLS
REM' A PROGRAM TO FIND THE FACTORIAL OF A NUMBER
INPUT "ENTER A NUMBER:", N
F = 1
FOR I = 1 TO N
    F = F * I
NEXT I
PRINT "THE FACTORIAL IS", F
END

Wap 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

Wap to display 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

Wap to display armstrong or not

CLS

INPUT "ENTER ANY 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 A; "IS ARMSTRONG"

ELSE

PRINT A; "IS NOT ARMSTRONG"

END IF

END

Wap to display plaindrome 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  " palindrome"
ELSE
    PRINT  " not palindrome"
END IF
END

Wap to display reserve digits

CLS
INPUT "Enter any digit"; n
WHILE n <> 0
r = n MOD 10
s = s * 10 + r
n = n \ 10
WEND
PRINT "Reversed digits is "; s
END

Wap to display product of digits

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

Wap to display sum of digits

CLS
INPUT "Enter any digit"; n
WHILE n <> 0
r = n MOD 10
s = s + r
n = n \ 10
WEND
PRINT "Sum of digits is "; s
END

Wap to display greatest among three number

CLS
INPUT "Enter the first number"; a
INPUT "Enter the second number"; b
INPUT "Enter the third number"; c
IF a > b AND a > c THEN
PRINT "The greatest number is "; a
ELSEIF b > a AND b > c THEN
PRINT "The greatest number is "; b
ELSE
PRINT "The greatest number is "; c
END IF
END

Wap to display odd or even

CLS
INPUT"ENTER ANY NUMBER"N
IF N MOD 2 =0 THEN
PRINT "EVEN";
ELSE
PRINT "ODD";
END IF
END

Wap to display positive,negative or zero

CLS

INPUT "Enter a number: ",N

IF N > 0 THEN

PRINT "The number is Positive."

ELSEIF N < 0 THEN

PRINT "The number is Negative."

ELSE

PRINT "The number is Zero."

END IF