Kc106: 28= dh162: 64=? ? ml008: 18=? ?

For a = 1 to 9 for b = 0 to 9 if (a*10000+b*1000+254)/73 = xxx then 'тут условие которое вы не написали msgbox(a*10000+b*1000+254) endif end sub

Мону рассказать про последнее. ml007: 18 = четырехзначное число. 18 = 2•9, значит, делимое должно быть четным ( а оно и есть четное, поскольку заканчивается на четное число) и должно делиться на 9. признак делимости на 9: сумма цифр, из которых состоит число должно делиться на 9. m+l+8 должно делиться на 9 например, если m=2, l=8, то делимое равно 28008 28008: 18 = 1556 далее варьируем m и l, чтобы в сумме получилось 10: 37008: 18 = 2055 46008: 18 = 2556 55008: 18 = 3056 64008: 18= 3556 73008: 18= 4056 82008: 18= 4556 91008: 18 = 5056

19 + 12 = 31. ближайшее число, делящееся на 6 - это 36. т.е. не хватает еще 36 - 31 = 5 человек.