Блог для маленьких школьников и их родителей
ШколаЛа

Даны два натуральных числа m и n. Проверить, есть ли в записи числа m цифры, одинаковые с цифрами в…

Автор:
Предмет: Информатика
Уровень: 5 - 9 класс

Даны два натуральных числа m и n. Проверить, есть ли в записи числа m цифры, одинаковые с цифрами в записи числа n.

НА БЕЙСИКЕ

Ответов к вопросу: 1
  • gta24839
    01.09.2024 | 10:23

    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

Ответить на вопрос:
:p :-p 8) 8-) :lol: =( :( :-( :8 ;) ;-) :(( :o:
Нажимая на кнопку я даю согласие на обработку персональных данных и принимаю политику конфиденциальности.