Qbasic Programmings

1.) Write a program to input ayny number and check whether the number is divisible by 3 and 7 or not.

CLS

INPUT "ENTER ANY NUMBER ";N

IF NOT MOD 3=0 AND N MOD 7=0 THEN

PRINT "NUMBER IS DIVISIBLE BY 3 AND 7"

ELSE 

PRINT "NUMBER IS NOT DIVISIBLE BY 3 AND 7"

END IF 

END

2.) Write a program to input number and check whether the number is positive or negative.

CLS
INPUT "ENTER ANY NUMBER ";N
IF N>O THEN
PRINT "THE NUMBER IS POSITIVE"
ELSEIF N <O THEN
PRINT "THE NUMBER IS NEGATIVE"
END IF
END

3.) Write a program to input any number and display whether it is odd or even.

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


4.) Write a program to input any two number and display the smaller one.

CLS
INPUT "ENTER ANY TWO NUMBER";A,B
IF A <B THEN
PRINT "SMALLER NUMBER IS ";A
ELSEIF B <A THEN
PRINT " SMALLER NUMBER IS ";B
END IF
END


5.)  Write a program to enter any three numbers and display the middle number.

CLS
INPUT " ENTER ANY THREE NUMBERS";A,B,C
IF A>B AND A <C OR A <B AND A>C THEN
PRINT " MIDDLE NUMBER IS";A
ELSEIF B>A AND B <C OR B <A AND B>C THEN
PRINT " MIDDLE NUMBER IS";B
ELSE
PRINT " MIDDLE NUMBER IS ";C
END IF
END


6.)  WAP to check whether the number is divisible by 13 or not.

CLS
INPUT "ENTER ANY NUMBER ";N
IF N MOD 13=0 THEN
PRINT "NUMBER IS DIVISIBLE BY 13"
ELSE
PRINT "NUMBER IS NOT DIVISIBLE BY 13"
END IF
END


7.) WAP to check whether the number is positive negative or zero.

CLS
INPUT "ENTER ANY NUMBER ";N
IF N>0 THEN
PRINT "POSITIVE NUMBER"
ELSEIF N <0 THEN
PRINT "NEGATIVE NUMBER"
ELSE
PRINT " NUMBER IS ZERO"
END IF
END


8.) WAP  to enter year and display whether that year is leap year or not.

CLS
INPUT " ENTER YEAR";Y
IF YOU MOD 4=0 AND YOU MOD 100 <>0 OR Y MOD 400=0 THEN
PRINT "YEAR IS A LEAP YEAR"
ELSE
PRINT " YEAR IS NOT A LEAP YEAR"
END IF
END


9.) WAP to input age and find out whether the person is eligible to vote on not.

CLS
INPUT "ENTER  YOUR AGE";A
IF A>=18 THEN
PRINT " YOU ARE ELIGIBLE TO VOTE"
ELSE
PRINT "YOU ARE NOT ELIGIBLE TO VOTE"
END IF
END


10.)  WAP to enter any three numbers and display the greatest number.

CLS
INPUT "ENTER ANY THREE NUMBERS";A,B, C
IF A>B AND A>C THEN
PRINT "GREATER NUMBER IS";A
ELSEIF B>A AND B>C THEN
PRINT "GREATER NUMBER IS ";B
ELSE
PRINT " GREATER NUMBER IS";C
END IF
END