I have a three digits number as shown above which is always divisible by 11 where and are it's digits.
How many of the above statements are/is always true ?
This section requires Javascript.
You are seeing this because something didn't load right. We suggest you, (a) try
refreshing the page, (b) enabling javascript if it is disabled on your browser and,
finally, (c)
loading the
non-javascript version of this page
. We're sorry about the hassle.
using Mathematica
case 1
#[[1]] - #[[2]] + #[[3]] & /@ Select[IntegerDigits /@ Table[11 i, {i, 10, 90}], #[[1]] <= #[[2]] &]
{0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0}
Truecase 2
#[[1]] + #[[2]] + #[[3]] & /@ Select[IntegerDigits /@ Table[11 i, {i, 10, 90}], #[[1]] > #[[2]] &]
{11, 11, 13, 11, 13, 15, 11, 13, 15, 17, 11, 13, 15, 17, 19, 11, 13, 15, 17, 19, 21, 11, 13, 15, 17, 19, 21, 23, 11, 13, 15, 17, 19, 21, 23, 25}
Falsecase 3
#[[1]] - #[[2]] - #[[3]] & /@ Select[IntegerDigits /@ Table[11 i, {i, 10, 90}], #[[1]] > #[[3]] &]
{0, 0, -2, 0, -2, -4, 0, -2, -4, -6, 0, -2, -4, -6, -8, 1, 0, -2, -4, -6, 3, 1, -1, 0, -2, -4, 5, 3, 1, -1, -3, 0, -2, 7, 5, 3, 1, -1, -3, -5, 0}
Falsecase 4
#[[3]] - #[[1]] + #[[2]] & /@ Select[IntegerDigits /@ Table[11 i, {i, 10, 90}], #[[1]] < #[[3]] &]
{4, 6, 8, 10, 12, 14, 16, 7, 6, 8, 10, 12, 14, 5, 7, 8, 10, 12, 3, 5, 7, 10, 1, 3, 5, 7, 3, 5, 7, 5, 7, 7}
False