Question

Даны два натуральных числа m и n. Проверить, есть ли в записи числа m цифры, одинаковые с цифрами в записи числа n. НА БЕЙСИКЕ

Answer 1

Sub Same()

   Dim n, m, i As Integer, j As Integer, sStr As String, bFlag As Boolean

   n = InputBox("n")

   m = InputBox("m")

   For i = 1 To Len(n)

       For j = 1 To Len(m)

           If Mid(n, i, 1) = Mid(m, j, 1) Then

               bFlag = True

               Exit For

           End If

       Next

       If bFlag Then Exit For

   Next

   MsgBox sStr

End Sub

Answer 2

Для проверки, есть ли в записи числа m цифры, одинаковые с цифрами в записи числа n, вы можете воспользоваться следующим кодом на языке программирования BASIC:

basicCopy code
INPUT "Введите число m: ", m
INPUT "Введите число n: ", n

' Преобразуем числа m и n в строки
m_str = STR$(m)
n_str = STR$(n)

' Переменная для отслеживания совпадения цифр
found_match = 0

' Перебираем цифры числа m
FOR i = 1 TO LEN(m_str)
    ' Получаем очередную цифру числа m
    m_digit = VAL(MID$(m_str, i, 1))
    
    ' Проверяем, есть ли эта цифра в числе n
    IF INSTR(n_str, STR$(m_digit)) > 0 THEN
        found_match = 1
        EXIT FOR
    END IF
NEXT i

' Выводим результат
IF found_match = 1 THEN
    PRINT "В числе m есть цифры, одинаковые с числом n."
ELSE
    PRINT "В числе m нет цифр, одинаковых с числом n."
END IF

Этот код сначала запрашивает у пользователя числа m и n, затем преобразует их в строки и перебирает цифры числа m, ища совпадения в числе n. Если хотя бы одно совпадение найдено, программа выведет сообщение о наличии совпадающих цифр, в противном случае будет выведено сообщение о их отсутствии.