Question

поменять их местами, если нет, то поменять местами вторую и третью цифры. На экран вывести исходное число и число после перестановки.

Напимер:

Вводится положительное целое четырехзначное число. Если первая цифра числа слева больше, чем его последняя цифра

1234 – исходное значение, 1324 – число полученное после перестановки цифр.

5231 – исходное значение, 1235 – число полученное после перестановки цифр.

Answer 1

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