Рассмотрим цикл, число шагов которого зависит от изменения переменной x:while x > 0 do begin... x:= x div 10;end; Т. к. оператор div оставляет только целую часть от деления, то при делении на 10 это равносильно отсечению последней цифры. Из приведенного цикла видно, что на каждом шаге от десятичной записи x отсекается последняя цифра до тех пор, пока все цифры не будут отсечены, то есть x не станет равно 0; поэтому цикл выполняется столько раз, сколько цифр в десятичной записи введенного числа, при этом число L столько же раз увеличивается на 1. Следовательно, конечное значение L совпадает с числом цифр в x. Для того, чтобы L стало L=3, x должно быть трёхзначным. Теперь рассмотрим оператор изменения M: if M < x then begin M:= M + (x mod 10) * 2; end; Оператор mod оставляет только остаток от деления, при делении на 10 это последняя цифра x. Таким образом М есть сумма удвоенных цифр числа x, которые принимают чётные значения от 0 до 18. Для получения наименьшего x положим первую цифру x(1) = 1, она не даст вклад на третьем шаге цикла, потому что не будет выполняться условие M < x, а для того, чтобы сумма удвоенных цифр была равна 28, вторая и треться цифры должны быть больше нуля. Сделаем цифру x(3) максимально воможной, чтобы уменьшить вторую цифру и достичь минимума:x(3) = 9, тогда 9 * 2 = 18, а x(2) = (28 - 18) / 2 = 5, но тогда не выполняется условие M < x (18 > 15) и значение 28 не достигнется. x(3) = 8, тогда 8 * 2 = 16, а x(2) = (28 - 16) / 2 = 6, условие M < x не выполняется (16 = 16) и значение 28 не достигнется. x(3) = 7, тогда 7 * 2 = 14, а x(2) = (28 - 14) / 2 = 7, M < x (14 < 17) и значение 28 достигaется. Окончательно находим наименьшее число x: 177.