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
23
Task/Nth/ERRE/nth.erre
Normal file
23
Task/Nth/ERRE/nth.erre
Normal file
|
|
@ -0,0 +1,23 @@
|
|||
PROGRAM NTH_SOLVE
|
||||
|
||||
!
|
||||
! for rosettacode.org
|
||||
!
|
||||
|
||||
PROCEDURE NTH(S%,E%)
|
||||
LOCAL I%,SUFF$
|
||||
FOR I%=S% TO E% DO
|
||||
SUFF$="th"
|
||||
IF I% MOD 10=1 AND I% MOD 100<>11 THEN SUFF$="st" END IF
|
||||
IF I% MOD 10=2 AND I% MOD 100<>12 THEN SUFF$="nd" END IF
|
||||
IF I% MOD 10=3 AND I% MOD 100<>13 THEN SUFF$="rd" END IF
|
||||
PRINT(STR$(I%)+SUFF$+" ";)
|
||||
END FOR
|
||||
PRINT
|
||||
END PROCEDURE
|
||||
|
||||
BEGIN
|
||||
NTH(0,25)
|
||||
NTH(250,265)
|
||||
NTH(1000,1025)
|
||||
END PROGRAM
|
||||
Loading…
Add table
Add a link
Reference in a new issue