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
<span>End Sub</span>
Иванов-парикмахер.Петров-плотник.Сидоров-мельник.Гришин-почтальон.Алексеев-маляр.
K = 100*50 = 5000 px
i = (N=2^i == 165 = 2^(7-8)) = 8 берём большее для i
I = 5000*8 = 5000 байт
ответ: В(5000)
Ответ № 5 - для <span>однозначного выделения записи в базе данных.
</span>
<span>Под первичным
ключом понимают поле или набор полей,
однозначно (уникально) идентифицирующих
запись. (http://informatic.ugatu.ac.ru/lib/office/Proekt.htm)</span>
Передача информации
устным, письменным, электронным способом