Написать программу, которая определяет, является ли введенное слово палиндромом. Выдать сообщeние в MsgBox. вывести проверяемое слово в двух вариантах.
Visual Basic.
Ответы на вопрос
Ответил Аноним
0
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
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
Ответил Аноним
0
Так?
Новые вопросы
География,
2 года назад
Химия,
2 года назад
Обществознание,
10 лет назад
Алгебра,
10 лет назад
Математика,
10 лет назад