Логика такая:
1) Число 157 - это суммы 15 и 7 в порядке убывания, т.к. 1 и 57 не подойдут в виду условий задачи.
2) Пусть наименьшее число abc, тогда желательно b+c = 15, а a+b = 7.
Подберем: чтобы цифра b в нашем числе было наименьшей, цифра c должна взять на себя наибольшее значение -> 9. Тогда b = 6.
Итого: a69.
a будет 1, т.к. 1+6 = 7.
Таким числом является 169.
Проверим: 1+6 = 7. 6+9 = 15. В порядке убывания получается 157.
Че то подчеркнуть надо ???
VB.
Dim n As Integer
n = InputBox("Введите число:")<span>
MsgBox("В числе " & Len(CStr(n)) & " цифр.")
Pascal.
</span><span>Program N;
Var
I, S, N : Longint;
Begin
Writeln('Введите число'); Readln(I);
N:=1;
While I > 10 DO
BEGIN
I:=I DIV 10;
Inc(N);
end;
// c2fbefeeebede8eb3a20caf3eff0e8ffedeee220c42ec52e2028632920442d6d6f6e3535
Write('</span>"В числе цифр "<span> = ',N);
Readln; end.
</span>
<em>Помог? Жми <u>Лучший!</u></em>
В любой такой последовательности при перестановке двоек и единиц результат не меняется. Например, 121121 и 111122 дадут один и тот же результат. Поэтому из любой последовательности сделаем наименьший номер (т.е. сначала идут все единицы, затем - двойки). Не забудем так же, что 2 и 3 взаимно просты, поэтому при разных количествах единиц и двоек результаты будут различны.
Т.к. всего команд 6, то чисел будет лишь 7:
111111
111112
111122
111222
112222
122222
222222
Ответ: 7