Rosetta Code

Inconsummate numbers in base 10: Difference between revisions

Page Discussion

Inconsummate numbers in base 10 (view source)

Revision as of 12:57, 16 October 2023

625 bytes removed ,  7 months ago
m
Undo revision 357133 by Chkas (talk)
(Added Easylang)
m (Undo revision 357133 by Chkas (talk))
Line 383:
491 492 493 494 497
498 516 521 522 527</pre>
 
=={{header|EasyLang}}==
<syntaxhighlight lang=easylang>
limit = 10000
maxn = 10000 * 9 * 4
#
len consummate[] limit
#
func digsum i .
res = 0
while i > 0
res += i mod 10
i = i div 10
.
return res
.
for d = 1 to maxn
ds = digsum d
if d mod ds = 0
q = d / ds
if q <= limit
consummate[q] = 1
.
.
.
d = 1
repeat
if d > len consummate[]
print "error - increase limit"
break 1
.
if consummate[d] = 0
cnt += 1
if cnt <= 50
write d & " "
.
.
until cnt = 1000
d += 1
.
print ""
print ""
print d
</syntaxhighlight>
 
 
=={{header|Delphi}}==
Line 500 ⟶ 455:
 
</pre>
 
 
=={{header|FreeBASIC}}==
Chkas
1,978

edits

Retrieved from "https://rosettacode.org/wiki/Special:MobileDiff/358221"