Special divisors: Difference between revisions

Content added Content deleted

Inline

@@ Line 1,135: / Line 1,135: @@
 137   139   143   149   151   157   163   167   169   173   179   181   187   191   193   197   199
 </pre>
+=={{header|PILOT}}==
+<lang pilot>C :max=200
+  :n=1
+*num
+C :x=n
+U :*rev
+C :rn=r
+  :d=1
+*div
+J (d*(n/d)<>n):*nextdiv
+C :x=d
+U :*rev
+J (r*(rn/r)<>rn):*next
+*nextdiv
+C :d=d+1
+J (d<=n/2):*div
+T :#n
+*next
+C :n=n+1
+J (n<max):*num
+E :
+*rev
+C :r=0
+  :a=x
+*revloop
+C :b=a/10
+  :r=r+(a-b*10)
+  :a=b
+J (a>0):*revloop
+E :</lang>
+{{out}}
+<pre style='height:50ex;'>1
+</pre>
 =={{header|PL/I}}==