# theinfozones.com

## 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
a\$ = check\$(n)
PRINT a\$
END

FUNCTION check\$ (n)
x = n MOD 4
IF x = 0 THEN
ans\$ = "The given number is exactly divisible by 4"
ELSE
ans\$ = "The given number is not exactly divisible by 4"
END IF
check\$ = ans\$
END FUNCTION
• Using FUNCTION Procedure (Alternate Method)
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 : 