Исправьте ошибку SETPIXEL(70,50,red) (паскаль)

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

Первая лодка: в одну сторону лодка отвозит до 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 минут быстрее