Дано натуральное число определить есть ли в нем цифра a
Answers & Comments
89120447210 Function ЕстьЦифра(ччч, ццц) ЕстьЦифра = False ццц1 = ччч Mod 10 ччч1 = (ччч - ццц1) / 10 If ччч1 < 10 Then If ччч1 = ццц Or ццц1 = ццц Then ЕстьЦифра = True End If Else If ццц1 = ццц Then ЕстьЦифра = True Else ЕстьЦифра = ЕстьЦифра(ччч1, ццц) End If End If End Function Sub ppp() число = Cells(2, 1) цифра = Cells(2, 2) If ЕстьЦифра(число, цифра) Then Cells(2, 3) = "ДА" Else Cells(2, 3) = "НЕТ" End If End Sub
Answers & Comments
Function ЕстьЦифра(ччч, ццц)
ЕстьЦифра = False
ццц1 = ччч Mod 10
ччч1 = (ччч - ццц1) / 10
If ччч1 < 10 Then
If ччч1 = ццц Or ццц1 = ццц Then
ЕстьЦифра = True
End If
Else
If ццц1 = ццц Then
ЕстьЦифра = True
Else
ЕстьЦифра = ЕстьЦифра(ччч1, ццц)
End If
End If
End Function
Sub ppp()
число = Cells(2, 1)
цифра = Cells(2, 2)
If ЕстьЦифра(число, цифра) Then
Cells(2, 3) = "ДА"
Else
Cells(2, 3) = "НЕТ"
End If
End Sub
а вот результат: