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