Qbasic

1) Write a program to check whether a number is Armstrong or not.

INPUT “NUMBER”;N

A=N

DO

R=N MOD 10

SUM=SUM + r^3

N=N 10

LOOP WHILE N>0

IF SUM=A THEN

PRINT “ARMSTRONG”

ELSE

PRINT “NOT ARMSTRONG”

END IF

END

2)  Write a program to display reverse form of a input word.

INPUT “ENTER WORD”;A$

FOR I=LEN(A$) TO 1 STEP -1

B$=MID$(A$,1,I)

C$=C$+B$

NEXT I

PRINT C$

3.  Write a program to check whether a number is palindrome of not.

INPUT ‘NUMBER’;N

A=N

DO

R= N MOD 10

SUM=SUM*10+R

N=N 10

LOOP WHILE N<>0

IF A=SUM THEN

PRINT “PALINDROME”

ELSE

PRINT “NOT PALINDROME”

END IF

END