Даны два слова. Найдите только те символы слов, которые встречаются в обоих словах только один раз - QBasic
Формулировка задачи:
даны два слова.найдите только те символы слов, которые встречаются в обоих словах только один раз
Решение задачи: «Даны два слова. Найдите только те символы слов, которые встречаются в обоих словах только один раз»
textual
Листинг программы
Function Cmp(S1 As String, S2 As String) As String
L1% = Len(S1)
If L1% = 0 Then
Cmp = ""
Else
a1$ = Left$(S1, 1)
If L1% - Len(Replace$(S1, a1$, "")) = 1 And _
Len(S2) - Len(Replace$(S2, a1$, "")) = 1 Then
Cmp = a1$ & Cmp(Mid$(S1, 2), S2)
Else
Cmp = Cmp(Mid$(S1, 2), S2)
End If
End If
End Function
Sub Tets()
Debug.Print Cmp("Пробка", "Роба") ' печать "оба"
End Sub