Дано целое число N. Определите, есть ли в числе цифра, равная введённой цифре К....

Question

Дано целое число N. Определите, есть ли в числе цифра, равная введённой цифре К. (программа не паскаль,а бейсик;нужно блок схему ,или хоть просто как решение записать)

Answer 1

Microsoft qBASIC:
DIM n AS LONG
CLS
INPUT "Введите число ", n
INPUT "Введите цифру для поиска ", d
flag = 0
DO WHILE n > 0 AND flag = 0
   IF d = n MOD 10 THEN
      PRINT "Цифра в числе есть"
      flag = 1
   ELSE
      n = n / 10
   END IF
LOOP
IF flag = 0 THEN PRINT "Цифры в числе нет"
END

Тестовое решение:
Введите число 5374012
Введите цифру для поиска 1
Цифра в числе есть