Дано натуральное число. Верно ли, что в данном числе нет данной цифры А - 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, "":

ИИ поможет Вам:

  • решить любую задачу по программированию
  • объяснить код
  • расставить комментарии в коде
  • и т.д
Попробуйте бесплатно

Оцени полезность:

7   голосов , оценка 4 из 5
Похожие ответы