Largest proper divisor of n: Difference between revisions

Content added Content deleted

Inline

@@ Line 39: / Line 39: @@
       result : param_type := 1;
    begin
-      for divisor in reverse 1 .. n - 1 loop
+      for divisor in reverse 1 .. n / 2 loop
          if n rem divisor = 0 then
             result := divisor;