Написать программу, которая определяет, является ли введенное слово палиндромом. Выдать сообщeние в MsgBox. вывести проверяемое слово в двух вариантах. Visual Basic.
Написать программу, которая определяет, является ли введенное слово палиндромом. Выдать сообщeние в MsgBox. вывести проверяемое слово в двух вариантах.
Visual Basic.
Гость
Ответ(ы) на вопрос:
ГостьSub Z1()
Dim x, y As String
x = InputBox("Введите слово: ")
For i = Len(x) To 1 Step -1
y = y + Mid(x, i, 1)
Next i
MsgBox ("Перевернутое слово: " + y)
If x = y Then
MsgBox ("Это палиндром")
Else: MsgBox ("Это не палиндром")
End If
End Sub
Не нашли ответ?
Похожие вопросы