Largest proper divisor of n: Difference between revisions
Content added Content deleted
(→{{header|Vlang}}: Rename "Vlang" in "V (Vlang)") |
No edit summary |
||
Line 928: | Line 928: | ||
<syntaxhighlight lang="frink">for n = 1 to 100 |
<syntaxhighlight lang="frink">for n = 1 to 100 |
||
println[last[allFactors[n,true,false]]]</syntaxhighlight> |
println[last[allFactors[n,true,false]]]</syntaxhighlight> |
||
=={{header|FutureBasic}}== |
|||
<syntaxhighlight lang="futurebasic"> |
|||
NSUInteger i, j |
|||
print " 1 1"; |
|||
for i = 3 to 100 |
|||
for j = i - 1 to 1 step - 1 |
|||
if i mod j = 0 then print using "###"; j; : exit for |
|||
next |
|||
if i mod 10 = 0 then print |
|||
next |
|||
HandleEvents |
|||
</syntaxhighlight> |
|||
{{output}} |
|||
<pre> |
|||
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|Go}}== |
=={{header|Go}}== |
||
Line 972: | Line 1,003: | ||
13 46 31 47 19 48 1 49 33 50 |
13 46 31 47 19 48 1 49 33 50 |
||
</pre> |
</pre> |
||
=={{header|GW-BASIC}}== |
=={{header|GW-BASIC}}== |