Initial data commit

2023-07-01 11:58:00 -04:00 · 2023-07-01 11:58:00 -04:00 · f23f22d71c
commit f23f22d71c
parent 72d218235f
199087 changed files with 3378941 additions and 0 deletions
--- a/Task/Least-common-multiple/Microsoft-Small-Basic/least-common-multiple.basic
+++ b/Task/Least-common-multiple/Microsoft-Small-Basic/least-common-multiple.basic
@ -0,0 +1,21 @@
+Textwindow.Write("LCM(35, 21) = ")
+mlcm = 35
+nlcm = 21
+CalculateLCM()
+TextWindow.WriteLine(lcm)
+
+Sub CalculateLCM
+  mgcd = mlcm
+  ngcd = nlcm
+  CalculateGCD()
+  lcm = mlcm / gcd * nlcm
+EndSub
+
+Sub CalculateGCD
+  While mgcd <> 0
+    tmp = mgcd
+    mgcd = Math.Remainder(ngcd, mgcd)
+    ngcd = tmp
+  EndWhile
+  gcd = ngcd
+EndSub