Войти
Регистрация
Спроси ai-bota
В
Все
Х
Химия
В
Видео-ответы
А
Алгебра
Г
Геометрия
О
ОБЖ
Д
Другие предметы
У
Українська література
Р
Русский язык
Б
Беларуская мова
У
Українська мова
Э
Экономика
Ф
Физика
М
Математика
Ф
Французский язык
Г
География
И
Информатика
М
МХК
О
Окружающий мир
П
Психология
Н
Немецкий язык
О
Обществознание
П
Право
И
История
М
Музыка
Л
Литература
Қ
Қазақ тiлi
Б
Биология
А
Английский язык
Показать больше
Показать меньше
Rytdg
30.06.2021 17:07 •
Информатика
Для данного натурального числа найдите число число, цифры которого записаны в обратном порядке. (vba)
Ответ:
zaharooow
04.10.2020 16:32
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
0,0
(0 оценок)
Популярные вопросы: Информатика
Xom9l4ok
02.07.2022 16:18
Вмассиве чисел x1, найти максимальное по абсолютной величине и его номер....
liza770
23.03.2022 21:41
Уравнение и построить схему x=abc+abc+ab+a+a...
smoboine
23.03.2022 21:41
Найди значение выражения x у при а) x=2, y=2; б) x=2, y=-8...
Anna19013
13.04.2021 18:22
Решите задачу. (ответ округли до целых). Книга содержит 127 страниц. На каждой странице 38 строк. В каждой строке 56 символов (включая пробелы). Найти информационный...
kistoria
13.05.2020 16:23
СДЕЛАЙТЕ ОДНУ ИЗ ТАБЛИЦ В ПРИКРЕПЛЁННОМ ФАЙЛЕ В EXCEL...
Unikorn111
20.09.2020 05:07
Что выведет программа? a = -10 b = 19 if a =b: print(a) else: print(b)...
топ2006
11.10.2020 04:13
Сравните кнопку «Таблица ссылок и ссылок» с кнопкой «Таблица ссылок». Какие различия наблюдались?...
bluecat12
08.08.2021 00:05
Можете ответить ? ) желательно на все, но что знаете, пишите...
Westix
08.09.2020 20:55
Дано число x найти число y что 1) x*y=1 2) x-y=0 3) x+2=y phyton...
Валерушка8
15.05.2021 15:44
Высотой шрифта, измеряемой от нижнего края самой низкой буквы до верхнего края самой высокой буквы...
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota
Оформи подписку
О НАС
О нас
Блог
Карьера
Условия пользования
Авторское право
Политика конфиденциальности
Политика использования файлов cookie
Предпочтения cookie-файлов
СООБЩЕСТВО
Сообщество
Для школ
Родителям
Кодекс чести
Правила сообщества
Insights
Стань помощником
ПОМОЩЬ
Зарегистрируйся
Центр помощи
Центр безопасности
Договор о конфиденциальности полученной информации
App
Начни делиться знаниями
Вход
Регистрация
Что ты хочешь узнать?
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