Question

Дано натуральное число определить есть ли в нем цифра a

Answer 1

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 

а вот результат: 

Answer 2

Для решения этой задачи можно посимвольно перебрать все цифры в данном числе и проверить, есть ли среди них цифра a. Для этого можно преобразовать число в строку, а затем перебирать все ее символы.

Вот пример кода на Python, который решает эту задачу:

pythonCopy code
def contains_digit(number, a):
    # Преобразуем число в строку
    number_str = str(number)
    
    # Перебираем все символы в строке
    for digit in number_str:
        # Если нашли цифру a, возвращаем True
        if int(digit) == a:
            return True
    
    # Если не нашли цифру a, возвращаем False
    return False

Вызов функции contains_digit(12345, 2) вернет True, потому что в числе 12345 есть цифра 2. А вызов contains_digit(67890, 2) вернет False, потому что в этом числе цифры 2 нет.