Special divisors: Difference between revisions
Content added Content deleted
Not a robot (talk | contribs) (Add C++) |
Not a robot (talk | contribs) (Add BASIC) |
||
Line 162: | Line 162: | ||
{{output}} |
{{output}} |
||
<lang applescript>{|count|:72, finds:{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}}</lang> |
<lang applescript>{|count|:72, finds:{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}}</lang> |
||
=={{header|BASIC}}== |
|||
<lang BASIC>10 DEFINT A-Z |
|||
20 FOR I=1 TO 199 |
|||
30 J=I: X=0 |
|||
40 IF J>0 THEN X=X*10+J MOD 10: J=J\10: GOTO 40 |
|||
50 FOR J=1 TO I\2 |
|||
60 IF I MOD J GOTO 100 |
|||
70 K=J: Y=0 |
|||
80 IF K>0 THEN Y=Y*10+K MOD 10: K=K\10: GOTO 80 |
|||
90 IF X MOD Y GOTO 120 |
|||
100 NEXT J |
|||
110 PRINT I, |
|||
120 NEXT I</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++}}== |