Информатика - VB (172619)
Формулировка задачи:
Ребята,срочно, помогите пожалуйста,мы тут смотрю шпарите только так,завтра уже нужно сдавать
буду очень признателен!
Решение задачи: «Информатика»
textual
Листинг программы
txt = InputBox("")
a = Split(txt, " ")
str = ""
For i = 0 To UBound(a)
For j = i To UBound(a) - 1
If a(j + 1) = a(i) Then
str = a(j + 1) & " " & a(i)
Exit For
Exit For
End If
Next j
Next i
ИИ поможет Вам:
- решить любую задачу по программированию
- объяснить код
- расставить комментарии в коде
- и т.д