Program in qbasic to check amicable number

CLS
INPUT "ENTER FIRST NUMBER"; A
INPUT "ENTER SECOND NUMBER"; B

FOR I = 1 TO A - 1
    IF A MOD I = 0 THEN
        S = S + I
    END IF
NEXT

FOR J = 1 TO B - 1
    IF B MOD J = 0 THEN
        S1 = S1 + J
    END IF
NEXT

IF S1 = A AND S = B THEN
    PRINT "ENTER NUMBER IS AMICABLE"
ELSE
    PRINT "ENTER NUMBER IS NOT AMICABLE"
END IF

QBASIC PROGRAM TO CHANGE DECIMAL TO BINARY

DIM C%, N%, D%, I%
INPUT N
C = 1
WHILE N > 0
    D = N MOD 2
    N(C) = D
    N = N \ 2
    C = C + 1
WEND
I = C - 1
PRINT"BINARY ="
WHILE I > 0
    PRINT N(I);
    I = I - 1
WEND

program in qbasic to check palindrome number

CLS
DIM N AS INTEGER, NUM AS INTEGER, D AS INTEGER, R AS INTEGER
R = 0

INPUT "ENTER A NUMBER"; N
NUM = N

WHILE N > 0
    D = N MOD 10
    R = R * 10 + D
    N = N \ 10
WEND

IF NUM = R THEN
    PRINT "ENTERED NUMBER IS PALINDROME NUMBER"
ELSE
    PRINT "ENTERED NUMBER IS NOT PALINDROME NUMBER"
END IF

END

Array program in qbasic to insert a number

CLS
DIM N(11) AS INTEGER,A%,P%,I%
PRINT "ENTER TEN NUMBER"
FOR I = 1 TO 10
    INPUT N(I)
NEXT

INPUT "ENTER NUMBER WHICH YOU WANT TO INSERT"; A
INPUT "ENTER THE POSITION (WITHIN 10)"; P
FOR I = 10 TO P STEP -1
    N(I + 1) = N(I)
NEXT
N(P) = A

FOR I = 1 TO 11
    PRINT N(I)
NEXT

note:-you can increase the number of digit during input

Qbasic program to find sum of odd and even digit position

CLS
DIM N,D,R,C ,E,O AS INTEGER
R=0
E=0
C=0
INPUT"ENTER ANY NUMBER";N

' TO REVERSE THE ENTER NUMBER
WHILE N>0
       D=N MOD 10
       R=R * 10 + D
       N=N \ 10
WEND

'TO FIND THE SUM OF POSITION

WHILE R>0
D=R MOD 10
C= C + 1
   IF C MOD 2=0 THEN
         E=E+C
   ELSE
         O=O+C
   END IF
R=R\10
WEND

PRINT"SUM OF EVEN POSITION =";E
PRINT"SUM OF ODD POSITION =";O

END

Qbasic program to check armstrong number

CLS
DIM N%,NUM%,D%,A%
INPUT"ENTER ANY NUMBER";N
NUM=N
WHILE N > 0
D = N MOD 10
A = A + D ^ 3
N=N\10
WEND

IF A=NUM THEN
    PRINT"ARMSTRONG NUMBER"
ELSE
  PRINT"NOT ARMSTRONG NUMBER"
END IF

QBASIC PROGRAM TO CHECK STRONG NUMBER

CLS
DIM N AS INTEGER,NUM AS INTEGER,D AS INTEGER,S AS INTEGER

INPUT"ENTER ANY NUMBER";N
NUM=N
F=1
WHILE N>0
D=N MOD 10
    WHILE D>0
      F=F*D
      D=D-1
    WEND
S=S+F
F=1
N=N\10
WEND

IF S=NUM THEN
    PRINT"STRONG NUMBER"
ELSE
    PRINT"NOT STRONG NUMBER"
END IF

END