Inconsummate numbers in base 10: Difference between revisions
Content added Content deleted
(Added Easylang) |
|||
Line 383: | Line 383: | ||
491 492 493 494 497 |
491 492 493 494 497 |
||
498 516 521 522 527</pre> |
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}}== |
=={{header|Delphi}}== |
||
Line 500: | Line 455: | ||
</pre> |
</pre> |
||
=={{header|FreeBASIC}}== |
=={{header|FreeBASIC}}== |