Amicable pairs: Difference between revisions

Amicable pairs (view source)

284 bytes added , 1 year ago

→‎{{header|ANSI Standard BASIC}}: Changed to {{header|ANSI BASIC}}; {{works with|Decimal BASIC}}; output.

511

edits

Revision as of 01:17, 14 May 2023 (view source) Christophoro S (talk \| contribs) m (ANSI Standard BASIC moved to the BASIC section.) ← Older edit		Revision as of 01:20, 14 May 2023 (view source) Christophoro S (talk \| contribs) (→‎{{header\|ANSI Standard BASIC}}: Changed to {{header\|ANSI BASIC}}; {{works with\|Decimal BASIC}}; output.) Newer edit →
Line 1,289: =={{header\|BASIC}}== ==={{header\|ANSI ~~Standard~~ BASIC}}=== {{~~Trans~~trans\|GFA Basic}} {{works with\|Decimal BASIC}} <syntaxhighlight lang="~~ansi standard~~ basic">100 DECLARE EXTERNAL FUNCTION sum_proper_divisors 110 CLEAR 120 ! Line 1,330 ⟶ 1,331: 470 LET sum_proper_divisors = sum 480 END FUNCTION</syntaxhighlight> {{out}} <pre> Amicable pair 220 284 Amicable pair 1184 1210 Amicable pair 2620 2924 Amicable pair 5020 5564 Amicable pair 6232 6368 Amicable pair 10744 10856 Amicable pair 12285 14595 Amicable pair 17296 18416 -- found all amicable pairs </pre> ==={{header\|BASIC256}}===