Sum of divisors: Difference between revisions
Content added Content deleted
Not a robot (talk | contribs) (Add Cowgol) |
Not a robot (talk | contribs) (Add Fortran) |
||
| Line 565: | Line 565: | ||
112 168 128 144 120 252 98 171 156 217 |
112 168 128 144 120 252 98 171 156 217 |
||
</pre> |
</pre> |
||
=={{header|Fortran}}== |
|||
<lang fortran> program DivSum |
|||
implicit none |
|||
integer i, j, col, divs(100) |
|||
do 10 i=1, 100, 1 |
|||
10 divs(i) = 1 |
|||
do 20 i=2, 100, 1 |
|||
do 20 j=i, 100, i |
|||
20 divs(j) = divs(j) + i |
|||
col = 0 |
|||
do 30 i=1, 100, 1 |
|||
write (*,'(I4)',advance='no') divs(i) |
|||
col = col + 1 |
|||
if (col .eq. 10) then |
|||
col = 0 |
|||
write (*,*) |
|||
end if |
|||
30 continue |
|||
end program </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|FreeBASIC}}== |
=={{header|FreeBASIC}}== |
||