Question

Write a program in qbasic to display whether the given number is even or odd using SUB procedure ​

Answer 1

Answer:

CLS

INPUT A

IF A MOD 2 =0 THEN

PRINT "EVEN";

ELSE

PRINT "ODD";

END IF

END

SUB......END SUB

DECLARE SUB EOO(A)

INPUT A

CALL EOO(A)

END

SUB EOO(A)

IF A MOD A = 0 THEN

PRINT "EVEN"

ELSE

PRINT "ODD"

END IF

END SUB

FUNCTION....END FUNCTION