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
|
1 2 3 4 5 6 7 8 9 10 11 12 13 |
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 |