QBASIC to check prime or Composite

QBASIC to check 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 "The number is prime"
ELSE
PRINT "The number is composite"
END IF
END

QBASIc to check Armstrong or not

QBASIc to check 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 "The number is armstrong"
ELSE
PRINT "The number is not armstrong"
END IF
END

QBASIC to check Palindrome or not

QBASIC to check 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 number is palindrome"
ELSE
PRINT "The number is not palindrome"
END IF
END

QBASIC To Reverse Digits

QBASIC To Reverse Digits

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

QBASIC to find Sum of Digits

QBASIC to find Sum of Digits

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

QBASIC to find Sum of Digits

QBASIC to find Sum of Digits

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

QBASIC to diplay Odd or Even

QBASIC to diplay Odd or Even

CLS
INPUT "Enter any number"; N
IF N MOD 2 = 0 THEN
PRINT "The number is even"
ELSE
PRINT "The number is odd"
END IF
END