Sub number() N = InputBox("Введите число N ") S = Trim(Str(N)) If Len(S) <= 1 Then MsgBox "Число должно быть хотя бы двузначным" End If L% = N Mod 10 'последняя цифра K = Len(S) - 1 F = Mid(S, 1, 1) 'первая цифра B = N - F * (10 ^ K) + L * (10 ^ K) - L + F MsgBox "Введённое число" + Str(N) + "; Преобразованное число " + Str(B)End Sub<br>Sub test() numberEnd Sub
'------------------------------тест
введённое число 58982 Преобразованное число 28985
