Product of min and max prime factors: Difference between revisions
Content added Content deleted
Not a robot (talk | contribs) (Add CLU) |
Not a robot (talk | contribs) (Add BASIC) |
||
| Line 66: | Line 66: | ||
91 46 93 94 95 6 9409 14 33 10 |
91 46 93 94 95 6 9409 14 33 10 |
||
</pre> |
</pre> |
||
=={{header|BASIC}}== |
|||
<syntaxhighlight lang="basic">10 DEFINT A-Z: M=100 |
|||
20 DIM C(M) |
|||
30 FOR P=2 TO SQR(M): FOR C=P*P TO M STEP P: C(C)=-1: NEXT C,P |
|||
40 PRINT USING " ####";1; |
|||
50 FOR I=2 TO M |
|||
60 FOR L=2 TO I: IF C(L) OR I MOD L>0 THEN NEXT L |
|||
70 FOR H=I TO 2 STEP -1: IF C(H) OR I MOD H>0 THEN NEXT H |
|||
80 PRINT USING " ####";L*H; |
|||
90 IF I MOD 10=0 THEN PRINT |
|||
100 NEXT I</syntaxhighlight> |
|||
{{out}} |
|||
<pre> 1 4 9 4 25 6 49 4 9 10 |
|||
121 6 169 14 15 4 289 6 361 10 |
|||
21 22 529 6 25 26 9 14 841 10 |
|||
961 4 33 34 35 6 1369 38 39 10 |
|||
1681 14 1849 22 15 46 2209 6 49 10 |
|||
51 26 2809 6 55 14 57 58 3481 10 |
|||
3721 62 21 4 65 22 4489 34 69 14 |
|||
5041 6 5329 74 15 38 77 26 6241 10 |
|||
9 82 6889 14 85 86 87 22 7921 10 |
|||
91 46 93 94 95 6 9409 14 33 10</pre> |
|||
=={{header|C++}}== |
=={{header|C++}}== |
||