Free C6030-042 Web TestEngine Demo

Q12 Single choice

Requirement:
The function LEAPYEAR evaluates a given 4-digit number and returns `1'B if it is a leap year, `0'B if it is
not. This function is supposed to work for the years 2004 to 2015. Leap years occur every four years, except for years ending in 00 that are not divisible by 400. Which of the following solutions meets the requirement and does NOT need to be changed if the requirement changes to: The function is supposed to work for the years 1900 to 3000.

A
LEAPYEAR: PROC(YEAR) RETURNS(BIT(1));DCL YEAR PlC `9999';DCL (MOD,VERIFY)
BUILTIN;SELECT;WHEN (VERIFY(YEAR,'0l 23456789') ^= 0) RETURN('0'B);WHEN (MOD
(YEAR,100) = 0)RETURN('0'B);WHEN (MOD(YEAR,4) =
0)RETURN('1'B);OTHERRETURN('0'B);END;END LEAPYEAR;
B
LEAPYEAR: PROC(YEAR) RETURNS(BIT(1));DCL YEAR PlC `9999';DCL VERIFY
BUILTIN;IFVERIFY(YEAR,0123456789)^= 0 THEN RETURN('0'B);SELECT(YEAR);WHEN (2004)
RETURN('1'B);WHEN (2008) RETURN('1'B);WHEN (2012) RETURN('1'B);OTHER RETURN
('0'B);END;END LEAPYEAR;
C
LEAPYEAR: PROC(YEAR) RETURNS(BIT(1));DCL YEAR PlC `9999';DCL (MOD,VERIFY)
BUILTIN;SELECT;WHEN (VERIFY(YEAR `0123456789') ^= 0) RETURN('0'B);WHEN (MOD
(YEAR,400) = 0) RETURN('l'B); WHEN (MOD(YEAR,100) = 0) RETURN('0'B); WHEN (MOD(YEAR,4)
= 0) RETURN('1'B); OTHER RETURN('0'B);END;END LEAPYEAR;
D
LEAPYEAR: PROC(YEAR) RETURNS(BIT(1));DCL YEAR PlC `9999';DCL (MOD,VERIFY)
BUILTIN;SELECT;WHEN (VERIFY(YEAR `0123456769') ^= 0) RETURN('0'B); WHEN (MOD
(YEAR,100) = 0) RETURN('0'B);WHEN (MOD(YEAR,400) = 0) RETURN('1'B);WHEN (MOD(YEAR,4)
= 0) RETURN('1'B);OTHERRETURN('0'B);END;END LEAPYEAR;

C6030-042 Web TestEngine demo