Войти
Регистрация
Спроси ai-bota
В
Все
М
Математика
О
ОБЖ
У
Українська мова
Д
Другие предметы
Х
Химия
М
Музыка
Н
Немецкий язык
Б
Беларуская мова
Э
Экономика
Ф
Физика
Б
Биология
О
Окружающий мир
Р
Русский язык
У
Українська література
Ф
Французский язык
П
Психология
А
Алгебра
О
Обществознание
М
МХК
В
Видео-ответы
Г
География
П
Право
Г
Геометрия
А
Английский язык
И
Информатика
Қ
Қазақ тiлi
Л
Литература
И
История
Показать больше
Показать меньше
sashabelousoydf1w
17.07.2020 22:28 •
Информатика
Для данного натурального числа найдите число число, цифры которого записаны в обратном порядке. (vba)
Показать ответ
Ответ:
илья1598
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 оценок)
Популярные вопросы: Информатика
ТинкиВинкиДанки
12.12.2021 02:20
Дано a=5c1.5 (16), b=642.25 (8). выполнить действие a+b ответ представить в 16-й системе счисления....
xacku1
02.01.2022 06:34
1. персональный компьютер не будет функционировать, если отключить: а) дисковод; б) оперативную память; в) мышь; г) принтер....
liliyamukhamad
02.01.2022 06:34
Объём сообщения, содержащего 2048 символов, составил 1/512 мбайта. каков размер алфавита, с которого записано сообщение?...
Христина854
09.01.2022 17:30
решить 2 задание 2 вариант по информатике ...
яидиот2345
15.03.2020 18:09
Вычислить значение функции y=a/x+b при x=1, 2, 3, 10 (a, b вводятся с клавиатуры)...
Урлатоп
15.03.2020 18:09
Написать программу , которая вводит с клавиатуры число от 0 до 999999(использовать переменные типа longint) и выдает на экран дисплея сумму цифр этого числа. напишите...
Nika5332
23.02.2022 19:07
Подскажите как в vba (access) написать программу для решения : вычислить значение функции y=a/x+b при x= 1, 2, (a, b вводятся с клавиатуры)....
Ромб111
13.02.2020 16:21
Световое табло состоит из лампочек, каждая из которых может находиться в двух состояниях (вкл. выкл.) какое наименьшее количество лампочек должно находиться на табло...
vtkmlth
30.04.2023 06:48
Кто может объяснить как решать с кругов эйлера...
arusy
20.11.2020 17:50
Написать программу для решения следующей : для заданного а вычислить принадлежащий интервалу (pi,2pi) корень уравнения ln ( ctg(x) - 1 ) = a...
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota
Оформи подписку
О НАС
О нас
Блог
Карьера
Условия пользования
Авторское право
Политика конфиденциальности
Политика использования файлов cookie
Предпочтения cookie-файлов
СООБЩЕСТВО
Сообщество
Для школ
Родителям
Кодекс чести
Правила сообщества
Insights
Стань помощником
ПОМОЩЬ
Зарегистрируйся
Центр помощи
Центр безопасности
Договор о конфиденциальности полученной информации
App
Начни делиться знаниями
Вход
Регистрация
Что ты хочешь узнать?
Спроси ai-бота
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