Дано натуральное число определить есть ли в нем цифра a
5-9 класс
|
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
а вот результат:
какое натуральное число
его нужно ввести с компьютера
Другие вопросы из категории
другой берег. Однако в лодку кроме крестьянина помещается либо только волк,либо только коза,либо только капуста.Оставлять волка с козой либо козу с капустой без присмотра нельзя- волк может съесть козу,а коза-капусту.Как должен вести себя крестьянин? Оформите план переправы любым известным вам способом .
1. физик
2. конструктор
3. писатель
4. бухгалтер
5. врач
отрицательных чисел. Вывод в столбец с двумя десятичными знаками.
Читайте также
2. Напишите программу, которая вводит последовательность целых ненулевых чисел, признак окончания ввода - число 0. Выясните есть ли в ней хотя бы одна пара одинаковых "соседних" чисел. СРОЧНО!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
N, Написать ему выводящую на экран последовательность натуральность натуральных чисел отN до 1, номер 3 Даны натуральные числа N и К.Написать программу выводящую на экран последовательность из N чисел , каждое из которых равно К хотя бы что нибудь решите помогите очень надо!!!!!!!!!