19 lines
560 B
Text
19 lines
560 B
Text
PROGRAM ODD_EVEN
|
|
|
|
! works for -2^15 <= n% < 2^15
|
|
|
|
FUNCTION ISODD%(N%)
|
|
ISODD%=(N% AND 1)<>0
|
|
END FUNCTION
|
|
|
|
! works for -2^38 <= n# <= 2^38
|
|
FUNCTION ISODD#(N#)
|
|
ISODD#=N#<>2*INT(N#/2)
|
|
END FUNCTION
|
|
|
|
BEGIN
|
|
IF ISODD%(14) THEN PRINT("14 is odd") ELSE PRINT("14 is even") END IF
|
|
IF ISODD%(15) THEN PRINT("15 is odd") ELSE PRINT("15 is even") END IF
|
|
IF ISODD#(9876543210) THEN PRINT("9876543210 is odd") ELSE PRINT("9876543210 is even") END IF
|
|
IF ISODD#(9876543211) THEN PRINT("9876543211 is odd") ELSE PRINT("9876543211 is even") END IF
|
|
END PROGRAM
|