Первая лодка: в одну сторону лодка отвозит до 10 человек, обратно её возвращает не менее 1 человека. Значит, за один раз ("туда-обратно") она отвозит 9 человек (или 10, если не нужно возвращаться обратно).
На то, чтобы перевести 18 человек, ей нужен один рейс "туда-обратно" и еще один рейс "туда", всего понадобится 12 + 12/2 = 18 минут.
Вторая лодка: в одну сторону лодка отвозит до 3 человек, обратно её возвращает не менее 1 человека. Значит, за один раз ("туда-обратно") она отвозит 2 человек (или 3, если не нужно возвращаться обратно).
На то, чтобы перевести 18 человек, ей нужно 8 рейсов "туда-обратно" и еще один рейс "туда", всего понадобится 8 * 3 + 3/2 = 25,5 минут.
Следует выбрать первую лодку, на ней перевозка будет на 25,5 - 18 = 7,5 минут быстрее
Первая лодка: в одну сторону лодка отвозит до 10 человек, обратно её возвращает не менее 1 человека. Значит, за один раз ("туда-обратно") она отвозит 9 человек (или 10, если не нужно возвращаться обратно).
На то, чтобы перевести 18 человек, ей нужен один рейс "туда-обратно" и еще один рейс "туда", всего понадобится 12 + 12/2 = 18 минут.
Вторая лодка: в одну сторону лодка отвозит до 3 человек, обратно её возвращает не менее 1 человека. Значит, за один раз ("туда-обратно") она отвозит 2 человек (или 3, если не нужно возвращаться обратно).
На то, чтобы перевести 18 человек, ей нужно 8 рейсов "туда-обратно" и еще один рейс "туда", всего понадобится 8 * 3 + 3/2 = 25,5 минут.
Следует выбрать первую лодку, на ней перевозка будет на 25,5 - 18 = 7,5 минут быстрее
4094
Объяснение:
Function newstr1(str As String, n As Integer) As String
Dim i As Integer
For i = 1 To n
str = Replace(str, "A", "BC")
str = Replace(str, "B", "AC")
str = Replace(str, "CC", "AD")
Next
newstr1 = str
End Function
Function chrcount(str1 As String, str2 As String) As Integer
Dim str() As String
str = Split(str1, str2)
chrcount = UBound(str, 1)
End Function
=chrcount(newstr1("AA";11);"D")
Excel VBA
P.S.
Для номера процедуры равного i, количество символов "D" вычисляется по формуле D(i)=2*2^i-2