Дано натуральное число. Верно ли, что в данном числе нет данной цифры А - VB
Формулировка задачи:
Помогите пожалуйста, везде обыскал, не нашел. Сам пытался, выводит неправильно.
Решение задачи: «Дано натуральное число. Верно ли, что в данном числе нет данной цифры А»
textual
Листинг программы
- Dim C
- Dim X As Double
- Dim A As Byte
- C = CDec(Text1)
- A = Val(Text2)
- k = True
- Do While C >= 1
- X = C Mod 10
- If X = A Then k = False: MsgBox "Входит", 64, "": Exit Sub
- C = Int(C / 10)
- Loop
- MsgBox "Не входит", 64, "":
ИИ поможет Вам:
- решить любую задачу по программированию
- объяснить код
- расставить комментарии в коде
- и т.д
