Largest proper divisor of n: Difference between revisions

m
no edit summary
(Added Run BASIC)
imported>Lacika7
mNo edit summary
Line 542:
{{trans|FreeBASIC}}
{{works with|Decimal BASIC}}
{{works with|IS-BASIC}}
<syntaxhighlight lang="basic">
100 REM Largest proper divisor of n
Line 552 ⟶ 553:
170 PRINT USING "###": J;
180 EXIT FOR
290190 END IF
200 NEXT J
210 IF MOD(I, 10) = 0 THEN PRINT
Anonymous user