Special divisors: Difference between revisions
Content added Content deleted
Not a robot (talk | contribs) (Add BASIC) |
Not a robot (talk | contribs) (Add BCPL) |
||
Line 192: | Line 192: | ||
179 181 187 191 193 |
179 181 187 191 193 |
||
197 199</pre> |
197 199</pre> |
||
=={{header|BCPL}}== |
|||
<lang BCPL>get "libhdr" |
|||
let reverse(n) = valof |
|||
$( let r = 0 |
|||
while n > 0 |
|||
$( r := r*10 + n rem 10 |
|||
n := n/10 |
|||
$) |
|||
resultis r |
|||
$) |
|||
let special(n) = valof |
|||
$( let r = reverse(n) |
|||
for d = 1 to n/2 |
|||
if n rem d = 0 & r rem reverse(d) ~= 0 |
|||
resultis false |
|||
resultis true |
|||
$) |
|||
let start() be |
|||
$( let c = 0 |
|||
for n = 1 to 199 |
|||
if special(n) |
|||
$( writed(n,4) |
|||
c := c + 1 |
|||
if c = 10 |
|||
$( wrch('*N') |
|||
c := 0 |
|||
$) |
|||
$) |
|||
wrch('*N') |
|||
$)</lang> |
|||
{{out}} |
|||
<pre> 1 2 3 4 5 6 7 8 9 11 |
|||
13 17 19 22 23 26 27 29 31 33 |
|||
37 39 41 43 44 46 47 53 55 59 |
|||
61 62 66 67 69 71 73 77 79 82 |
|||
83 86 88 89 93 97 99 101 103 107 |
|||
109 113 121 127 131 137 139 143 149 151 |
|||
157 163 167 169 173 179 181 187 191 193 |
|||
197 199</pre> |
|||
=={{header|C++}}== |
=={{header|C++}}== |