Largest palindrome product: Difference between revisions

Content added Content deleted

Inline

@@ Line 255: / Line 255: @@
 [Max:= 0;
 for M:= 100 to 999 do
-    for N:= 100 to 999 do
+    for N:= M to 999 do
         [Prod:= M*N;
-        if Prod = Rev(Prod) then
+        if Prod/1000 = Rev(rem(0)) then
             if Prod > Max then Max:= Prod;
         ];