Sum of divisors: Difference between revisions
Add FOCAL
Not a robot (talk | contribs) (Add PL/M) |
Not a robot (talk | contribs) (Add FOCAL) |
||
Line 506:
112 168 128 144 120 252 98 171 156 217
</pre>
=={{header|FOCAL}}==
<lang FOCAL>01.10 S C=0
01.20 F I=1,100;S D(I)=1
01.30 F I=2,100;F J=I,I,100;S D(J)=D(J)+I
01.40 F I=1,100;D 2
01.50 Q
02.10 T %4,D(I)
02.20 S C=C+1
02.30 I (9-C)2.4;R
02.40 T !
02.50 S C=0</lang>
{{out}}
<pre>= 1= 3= 4= 7= 6= 12= 8= 15= 13= 18
= 12= 28= 14= 24= 24= 31= 18= 39= 20= 42
= 32= 36= 24= 60= 31= 42= 40= 56= 30= 72
= 32= 63= 48= 54= 48= 91= 38= 60= 56= 90
= 42= 96= 44= 84= 78= 72= 48= 124= 57= 93
= 72= 98= 54= 120= 72= 120= 80= 90= 60= 168
= 62= 96= 104= 127= 84= 144= 68= 126= 96= 144
= 72= 195= 74= 114= 124= 140= 96= 168= 80= 186
= 121= 126= 84= 224= 108= 132= 120= 180= 90= 234
= 112= 168= 128= 144= 120= 252= 98= 171= 156= 217</pre>
=={{header|Forth}}==
| |||