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
30
Task/Least-common-multiple/ERRE/least-common-multiple.erre
Normal file
30
Task/Least-common-multiple/ERRE/least-common-multiple.erre
Normal file
|
|
@ -0,0 +1,30 @@
|
|||
PROGRAM LCM
|
||||
|
||||
PROCEDURE GCD(A,B->GCD)
|
||||
LOCAL C
|
||||
WHILE B DO
|
||||
C=A
|
||||
A=B
|
||||
B=C MOD B
|
||||
END WHILE
|
||||
GCD=ABS(A)
|
||||
END PROCEDURE
|
||||
|
||||
PROCEDURE LCM(M,N->LCM)
|
||||
IF M=0 OR N=0 THEN
|
||||
LCM=0
|
||||
EXIT PROCEDURE
|
||||
ELSE
|
||||
GCD(M,N->GCD)
|
||||
LCM=ABS(M*N)/GCD
|
||||
END IF
|
||||
END PROCEDURE
|
||||
|
||||
BEGIN
|
||||
LCM(18,12->LCM)
|
||||
PRINT("LCM of 18 AND 12 =";LCM)
|
||||
LCM(14,-6->LCM)
|
||||
PRINT("LCM of 14 AND -6 =";LCM)
|
||||
LCM(0,35->LCM)
|
||||
PRINT("LCM of 0 AND 35 =";LCM)
|
||||
END PROGRAM
|
||||
Loading…
Add table
Add a link
Reference in a new issue