Somma delle cifre 2

2013-05: Small 1

Write a program that finds all the numbers less than 1000 that contain only digits that sum to 10, e.g. 55, 73, 137, but not 423.
How many are there?

2012-11: Math 1

Find all the numbers less than 1000, where the sum of the digits is 15, for example 96 or 177.
How many are there?

If you fancy a further challenge, then calculate how many numbers less than 1000 there are that have a sum of digits equal to each of the possible values (not just 15, i.e. 1, 2, 3 … 25, 26, 27).

Scrivi un programma che trova tutti i numeri minori di 1000 la cui somma delle cifre sia uguale a 10 (15). Quanti sono?

Come ulteriore sfida calcola quanti numeri hanno come somma ciascun possibile valore da 1 a 27.

Soluzione

For numero=1 to 27
   CONTATORI[numero]=0
EndFor

For numero=1 to 999
   c1=Math.Floor(numero/100)
   c2=Math.Floor(Math.Remainder(numero, 100)/10)
   c3=Math.Remainder(numero, 10)
   somma=c1+c2+c3
   CONTATORI[somma]=CONTATORI[somma]+1
EndFor

For numero=1 to 27
   TextWindow.WriteLine(numero + ": " + CONTATORI[numero])
EndFor