Решение перебором АДЛТДТАТ
Объяснение:
Для начала можно понять, что первая точка и продолжение подходит только для буквы А и в итоге остаётся: -...-..--..-.--, дальше у нас 2 варианта:
1) АД.-..--..-.-- >> 1 - АДА..--..-.-- 2 - АДЛ--..-.--
2)АТ...-..--..-.-- >> АТЖ..--..-.--
Продолжаем перебирать:
1) АДА..--..-.-- больше нельзя продолжить т.к букв из 2 точек вначале нету.
2) АДЛ--..-.-- >> АДЛТ-..-.-- >> 1)АДЛТД-.-- 2)АДЛТТ..-.--
3) АТЖ..--..-.-- >> нельзя продолжить из за двух точек.
Продолжаем:
1)АДЛТД-.-- >> АДЛТДТАТ - это ответ
2)АДЛТТ..-.-- нельзя продолжить из за двух точек.
Поделитесь своими знаниями, ответьте на вопрос:
Dim srg As Double
srg = 1
n = 0
a = Range("A1:F8")
For Each x In a
If x > 0 Then
srg = srg * x
n = n + 1
End If
Next
srg = srg ^ (1 / n)
MsgBox "Ср.геом=" + Str(srg)
End Sub