Largest proper divisor of n: Difference between revisions
EasyLang
(Grouping BASIC dialects) |
(EasyLang) |
||
Line 902:
27 41 1 42 17 43 29 44 1 45
13 46 31 47 19 48 1 49 33 50</pre>
=={{header|EasyLang}}==
<syntaxhighlight lang="easylang">
proc lpdiv v . r .
r = 1
for i = 2 to v div 2
if v mod i = 0
r = i
.
.
.
numfmt 0 3
for i = 1 to 100
call lpdiv i res
write res
if i mod 10 = 0
print ""
.
.
</syntaxhighlight>
=={{header|F_Sharp|F#}}==
|