Поменять местами первую и последнюю цифру числа n

CoolCaroot CoolCaroot    1   03.09.2019 07:20    1

Ответы
Pr0100Chell Pr0100Chell  06.10.2020 14:11
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
Sub test()  numberEnd Sub

'------------------------------тест
введённое число 58982 Преобразованное число 28985
Поменять местами первую и последнюю цифру числа n
ПОКАЗАТЬ ОТВЕТЫ
Другие вопросы по теме Информатика