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

напимер:

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

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

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

Ответы

6yterffjdjd 09.09.2020 21:52

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

ПОКАЗАТЬ ОТВЕТЫ

Другие вопросы по теме Информатика

Keyanplay1 15.06.2019 06:10

emilsalimov 15.06.2019 06:10

NiceBike2 15.06.2019 06:10

137rdh 15.06.2019 06:10

Арбуз2200047 15.06.2019 06:10

dragonhar 04.03.2020 17:54

В какой нормальной форме находятся БД:...

Donyakotova 04.03.2020 17:44

muratovsergej 10.09.2019 06:00

partypoison6 10.09.2019 06:00

Behruz2008 10.09.2019 06:00