Dim a As Integer, s As Integer, g As Integer, h As String, f As String, d As String s = InputBox("Введите натуральное число")a = InputBox("Введите цифру")h = CStr(s)f = CStr(a)g = Len(h)For i = 1 To gv = Mid(h, i, 1)If v = f Thend = "Цифра " + f + " присутствует в числе " + hExit ForElsed = "Цифра " + f + " не присутствует в числе " + hEnd IfNextMsgBox d
0,0(0 оценок)
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota
Оформи подписку
