Поменять их местами, если нет, то поменять местами вторую и третью цифры. на экран вывести исходное число и число после перестановки.
напимер:
вводится положительное целое четырехзначное число. если первая цифра числа слева больше, чем его последняя цифра
1234 – исходное значение, 1324 – число полученное после перестановки цифр.
5231 – исходное значение, 1235 – число полученное после перестановки цифр.
Function func32698686(n As Integer) As String
Dim i1, i2, j1, j2, k1, k2, m As Integer
i1 = n \ 1000
j1 = n Mod 10
i2 = (n \ 100) Mod 10
j2 = (n \ 10) Mod 10
k1 = Fix((1 + Sgn(i1 - j1)) / 2)
k2 = Fix((2 - Sgn(i1 - j1)) / 2)
m = (n + 999 * (j1 - i1)) * k1 + (n + 90 * (j2 - i2)) * k2
func32698686 = str(n) & " " & str(m)
End Function
Excel VBA