Мону рассказать про последнее. 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
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
for b = 0 to 9
if (A*10000+b*1000+254)/73 = xxx then 'тут условие которое вы не написали
msgbox(A*10000+b*1000+254)
endif
end sub