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/Pascals-triangle/ERRE/pascals-triangle.erre
Normal file
17
Task/Pascals-triangle/ERRE/pascals-triangle.erre
Normal file
|
|
@ -0,0 +1,17 @@
|
|||
PROGRAM PASCAL_TRIANGLE
|
||||
|
||||
PROCEDURE PASCAL(R%)
|
||||
LOCAL I%,C%,K%
|
||||
FOR I%=0 TO R%-1 DO
|
||||
C%=1
|
||||
FOR K%=0 TO I% DO
|
||||
WRITE("###";C%;)
|
||||
C%=(C%*(I%-K%)) DIV (K%+1)
|
||||
END FOR
|
||||
PRINT
|
||||
END FOR
|
||||
END PROCEDURE
|
||||
|
||||
BEGIN
|
||||
PASCAL(9)
|
||||
END PROGRAM
|
||||
Loading…
Add table
Add a link
Reference in a new issue