To check the given number is divisible by 4 or not (Qbasic Code)

To check the given number is divisible by 4 or not (Qbasic Code)

CLS
INPUT "Enter a number"; n
x = n MOD 4
IF x = 0 THEN
    PRINT "The given number is exactly divisible by 4";
ELSE
    PRINT "The given number is not exactly divisible by 4";
END IF
END

  • Using SUB Procedure
DECLARE SUB check(n)
CLS
INPUT "Enter a number"; n
CALL check(n)
END

SUB check (n)
x = n MOD 4
IF x = 0 THEN
    PRINT "The given number is exactly divisible by 4";
ELSE
    PRINT "The given number is not exactly divisible by 4";
END IF
END SUB

  • Using FUNCTION Procedure
DECLARE FUNCTION check(n)
CLS
INPUT "Enter a number"; n
IF check(n) = 0 THEN
    PRINT "The given number is exactly divisible by 4";
ELSE
    PRINT "The given number is not exactly divisible by 4";
END IF
END

FUNCTION check (n)
x = n MOD 4
check = x
END FUNCTION

Share :

Facebook Twitter Google+
Back To Top

facebook main

counter

Powered by Blogger.