Для данного натурального числа найдите число число, цифры которого записаны в обратном порядке. (vba)
Для данного натурального числа найдите число число, цифры которого записаны в обратном порядке. (vba)
Гость
Ответ(ы) на вопрос:
ГостьSub aaa()
s = InputBox("Исходное число")
k = Len(s)
For i = 1 To k \ 2
t = Mid(s, i, 1)
Mid(s, i, 1) = Mid(s, k - i + 1)
Mid(s, k - i + 1, 1) = t
Next
MsgBox s
End Sub
Не нашли ответ?
Похожие вопросы