Numbers with prime digits whose sum is 13: Difference between revisions
Content added Content deleted
m (→{{header|REXX}}: changed some comments.) |
m (→{{header|REXX}}: changed a comment, aligned some statements.) |
||
Line 192: | Line 192: | ||
end /*k*/ |
end /*k*/ |
||
if sum\==13 then iterate /*Sum not equal to 13? Then skip this #*/ |
if sum\==13 then iterate /*Sum not equal to 13? Then skip this #*/ |
||
#= # + 1; $= $ j |
#= # + 1; $= $ j /*bump # count; append # to the $ list.*/ |
||
end /*j*/ |
end /*j*/ |
||
say strip($); |
say strip($); say /*display the output list to the term. */ |
||
say # ' decimal numbers found whose digits are prime and the decimal digits sum to 13'</lang> |
say # ' decimal numbers found whose digits are prime and the decimal digits sum to 13'</lang> |
||
{{out|output|text= when using the internal default inputs:}} |
{{out|output|text= when using the internal default inputs:}} |