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

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

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

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**

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**

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