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
8
Task/Factorial/ERRE/factorial-1.erre
Normal file
8
Task/Factorial/ERRE/factorial-1.erre
Normal file
|
|
@ -0,0 +1,8 @@
|
|||
PROCEDURE FACTORIAL(X%->F)
|
||||
F=1
|
||||
IF X%<>0 THEN
|
||||
FOR I%=X% TO 2 STEP Ä1 DO
|
||||
F=F*X%
|
||||
END FOR
|
||||
END IF
|
||||
END PROCEDURE
|
||||
4
Task/Factorial/ERRE/factorial-2.erre
Normal file
4
Task/Factorial/ERRE/factorial-2.erre
Normal file
|
|
@ -0,0 +1,4 @@
|
|||
PROCEDURE FACTORIAL(FACT,X%->FACT)
|
||||
IF X%>1 THEN FACTORIAL(X%*FACT,X%-1->FACT)
|
||||
END IF
|
||||
END PROCEDURE
|
||||
Loading…
Add table
Add a link
Reference in a new issue