Magnanimous numbers: Difference between revisions
Content added Content deleted
(Added Easylang) |
|||
Line 240: | Line 240: | ||
486685 488489 515116 533176 551558 559952 595592 595598 600881 602081 |
486685 488489 515116 533176 551558 559952 595592 595598 600881 602081 |
||
Last magnanimous number found: 434 = 999994 |
Last magnanimous number found: 434 = 999994 |
||
</pre> |
|||
=={{header|Amazing Hopper}}== |
|||
<syntaxhighlight lang="c"> |
|||
#include <basico.h> |
|||
#proto encontrarunMagnanimouspara(_X_) |
|||
#synon _encontrarunMagnanimouspara siencontréunMagnanimousen |
|||
algoritmo |
|||
permitir interrupción |
|||
decimales '0' |
|||
res={}, i=0 |
|||
iterar grupo( ++i, #(length(res)<400), \ |
|||
i, meter según ( si encontré un Magnanimous en 'i', res )) |
|||
#(utf8("Primeros 45 números magnánimos:\n")), #(res[1:45]) |
|||
#(utf8("\n\nNúmeros magnánimos 241 - 250:\n")), #(res[241:250]) |
|||
#(utf8("\n\nNúmeros magnánimos 391 - 400:\n")), #(res[391:400]), NL |
|||
luego imprime esto |
|||
terminar |
|||
subrutinas |
|||
encontrar un Magnanimous para(n) |
|||
tn=n, d=0, i=0, pd=0 |
|||
iterar |
|||
último dígito de 'tn', mover a 'd,tn' |
|||
cuando ' tn '{ |
|||
#( pd = pd + ( d * 10^i ) ) |
|||
} |
|||
quebrar cuando ' no es primo ( #(tn+pd) ) ' |
|||
++i |
|||
reiterar mientras 'tn' no sea cero |
|||
retornar ' #(not(tn)) ' |
|||
</syntaxhighlight> |
|||
{{out}} |
|||
<pre> |
|||
Primeros 45 números magnánimos: |
|||
0,1,2,3,4,5,6,7,8,9,11,12,14,16,20,21,23,25,29,30,32,34,38,41,43,47,49,50,52,56,58,61,65,67,70,74,76,83,85,89,92,94,98,101,110 |
|||
Números magnánimos 241 - 250: |
|||
17992,19972,20209,20261,20861,22061,22201,22801,22885,24407 |
|||
Números magnánimos 391 - 400: |
|||
486685,488489,515116,533176,551558,559952,595592,595598,600881,602081 |
|||
</pre> |
</pre> |
||