Написать программу для проверки все ли буквы данного слова стоящие на четных местах одинаковые (золото, долото, полотно, толокно). Visual Basic
Ответы
Ответ дал:
0
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
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
Вас заинтересует
1 год назад
6 лет назад
6 лет назад
9 лет назад
9 лет назад