Question 1196433
<pre>

44,  found using this one-line perl script

perl -e '$c=0; for($i=10;$i<1001;$i++) { $s = "$i"; @c = split(//,"$s"); $sum=0; foreach( @c ) { $sum += $_;};  if ($sum == 8) { print "$i   $sum\n"; } else { print "$i\n"; }}' | grep '   8' | wc -l

      44



To see the raw output of just the numbers that have digits adding to 8:

perl -e '$c=0; for($i=10;$i<1001;$i++) { $s = "$i"; @c = split(//,"$s"); $sum=0; foreach( @c ) { $sum += $_;};  if ($sum == 8) { print "$i   $sum\n"; }}'


And to see ALL the numbers considered:

perl -e '$c=0; for($i=10;$i<1001;$i++) { $s = "$i"; @c = split(//,"$s"); $sum=0; foreach( @c ) { $sum += $_;};  if ($sum == 8) { print "$i   $sum\n"; } else { print "$i\n"; }}'