Anonymous user
Numbers with prime digits whose sum is 13: Difference between revisions
Numbers with prime digits whose sum is 13 (view source)
Revision as of 22:31, 29 September 2020
, 3 years ago→{{header|REXX}}: changed some comments.
m (→{{header|REXX}}: changed the wording of the output text.) |
m (→{{header|REXX}}: changed some comments.) |
||
Line 180:
=={{header|REXX}}==
<lang rexx>/*REXX
LO= 337; HI= 322222 /*define the low and high range for #s.*/
pDigs= 2357; #= 0 /*define
$= /*variable to hold the list of #s found*/
do j=LO for HI-LO+1 /*search for numbers in this range. */
Line 192:
end /*k*/
if sum\==13 then iterate /*Sum not equal to 13? Then skip this #*/
#= # + 1; $= $
end /*j*/
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>
{{out|output|text= when using the internal default inputs:}}
<pre>
| |||