Largest proper divisor of n: Difference between revisions
Content added Content deleted
Basicgames (talk | contribs) |
(→{{header|ANSI BASIC}}: Added a solution.) |
||
Line 538: | Line 538: | ||
27 41 1 42 17 43 29 44 1 45 |
27 41 1 42 17 43 29 44 1 45 |
||
13 46 31 47 19 48 1 49 33 50</pre> |
13 46 31 47 19 48 1 49 33 50</pre> |
||
==={{header|ANSI BASIC}}=== |
|||
{{trans|FreeBasic}} |
|||
{{works with|Decimal BASIC}} |
|||
<syntaxhighlight lang="basic"> |
|||
100 REM Largest proper divisor of n |
|||
110 PRINT "The largest proper divisor of n is:" |
|||
120 PRINT |
|||
130 PRINT USING " ## ##": 1, 1; |
|||
140 FOR I = 3 TO 100 |
|||
150 FOR J = I - 1 TO 1 STEP -1 |
|||
160 IF MOD(I, J) = 0 THEN |
|||
170 PRINT USING "###": J; |
|||
180 EXIT FOR |
|||
290 END IF |
|||
200 NEXT J |
|||
210 IF MOD(I, 10) = 0 THEN PRINT |
|||
220 NEXT I |
|||
230 END |
|||
</syntaxhighlight> |
|||
{{out}} |
|||
<pre> |
|||
The largest proper divisor of n is: |
|||
1 1 1 2 1 3 1 4 3 5 |
|||
1 6 1 7 5 8 1 9 1 10 |
|||
7 11 1 12 5 13 9 14 1 15 |
|||
1 16 11 17 7 18 1 19 13 20 |
|||
1 21 1 22 15 23 1 24 7 25 |
|||
17 26 1 27 11 28 19 29 1 30 |
|||
1 31 21 32 13 33 1 34 23 35 |
|||
1 36 1 37 25 38 11 39 1 40 |
|||
27 41 1 42 17 43 29 44 1 45 |
|||
13 46 31 47 19 48 1 49 33 50 |
|||
</pre> |
|||
==={{header|Applesoft BASIC}}=== |
==={{header|Applesoft BASIC}}=== |