Add tasks for all the new languages
This commit is contained in:
parent
9dc3c2bb62
commit
bba7bfd280
13208 changed files with 134745 additions and 0 deletions
17
Task/Leap-year/ERRE/leap-year.erre
Normal file
17
Task/Leap-year/ERRE/leap-year.erre
Normal file
|
|
@ -0,0 +1,17 @@
|
|||
PROGRAM LEAP_YEAR
|
||||
|
||||
FUNCTION LEAP(YR%)
|
||||
LEAP=(YR% MOD 4=0) AND ((YR% MOD 400=0) OR (YR% MOD 100<>0))
|
||||
END FUNCTION
|
||||
|
||||
BEGIN
|
||||
LOOP
|
||||
INPUT("Enter a year: ",year%)
|
||||
EXIT IF YEAR%=0
|
||||
IF LEAP(year%) THEN
|
||||
PRINT(year%;" is a leap year")
|
||||
ELSE
|
||||
PRINT(year%;" is not a leap year")
|
||||
END IF
|
||||
END LOOP
|
||||
END PROGRAM
|
||||
Loading…
Add table
Add a link
Reference in a new issue