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

Answer 2

Чтобы поменять цифры в соответствии с указанными условиями и вывести исходное число и число после перестановки, вам потребуется использовать математические операции. Вот пример кода на языке Python, который решает данную задачу:

pythonCopy code
number = int(input("Введите положительное целое четырехзначное число: "))

# Получаем отдельные цифры числа
thousands = number // 1000
hundreds = (number // 100) % 10
tens = (number // 10) % 10
ones = number % 10

# Проверяем условие и меняем цифры при необходимости
if thousands > ones:
    new_number = ones * 1000 + hundreds * 100 + tens * 10 + thousands
else:
    new_number = thousands * 1000 + tens * 100 + hundreds * 10 + ones

# Выводим исходное число и число после перестановки
print("Исходное число:", number)
print("Число после перестановки:", new_number)

При запуске программы она будет запрашивать у вас ввод числа. После ввода числа она выполнит необходимые операции и выведет исходное число и число после перестановки.

Пример работы программы:

yamlCopy code
Введите положительное целое четырехзначное число: 1234
Исходное число: 1234
Число после перестановки: 1324

yamlCopy code
Введите положительное целое четырехзначное число: 5231
Исходное число: 5231
Число после перестановки: 1235

Обратите внимание, что в приведенном коде не предусмотрена проверка на ввод корректного четырехзначного числа. Если пользователь введет число с неправильным количеством цифр или отрицательное число, программа может работать некорректно. Для полноценной программы следует добавить соответствующую проверку.