Qbasic
SAVAGE 1)WAP to input number and check whether the given no.is divisible by 3 and 7 or not. cls Input "enter any number";n if n mod 3=0 and n mod 7=0 print "number is divisible by 3 and 7" ELSE PRINT "NUMBER IS NOT DIVISIBLE BY 3 AND 7" END IF END 2)WAP to input any number and check whether the given no.is positive or negative. CLS INPUT "ENTER ANY NUMBER";N IF N > 0 THEN PRINT "THE NUMBER ISPOSITIVE" ELSE IF N < 0 THEN PRINT "THE NUMBER IS NEGATIVE" END IF END 3)WAP to input any number and display whether it is odd or even. CLS INPUT "ENTER ANY NUMBER";N IF N MOD 2 = 0 THEN PRINT "THE EVEN NUMBER" ELSE PRINT "THE ODD NUMBER" END IF E