Special divisors: Difference between revisions
Content added Content deleted
Not a robot (talk | contribs) (Add PILOT) |
(add FreeBASIC) |
||
| Line 756: | Line 756: | ||
131 137 139 143 149 151 157 163 167 169 173 179 181 187 191 193 197 199 |
131 137 139 143 149 151 157 163 167 169 173 179 181 187 191 193 197 199 |
||
</pre> |
</pre> |
||
=={{header|FreeBASIC}}== |
|||
<lang freebasic>function reverse(n as integer) as integer |
|||
dim as integer u = 0 |
|||
while n |
|||
u = 10*u + n mod 10 |
|||
n\=10 |
|||
wend |
|||
return u |
|||
end function |
|||
dim as integer n, u, d, b |
|||
dim as boolean s |
|||
for n = 1 to 200 |
|||
u = reverse(n) |
|||
s = true |
|||
for d = 1 to n |
|||
if n mod d = 0 then |
|||
b = reverse(d) |
|||
if u mod b <> 0 then s = false |
|||
end if |
|||
next d |
|||
if s then print using "### ";n; |
|||
next n</lang> |
|||
=={{header|Go}}== |
=={{header|Go}}== |
||