Решение:
<span>Не понятно зачем в конце выражения стоит 4, Предположу, что это (x+5)^4 </span>
<span>y'=4-4/(x+5); y'=0 </span>
<span>4-4/(x+5)=0 </span>
<span>x+5=1 </span>
<span>x=-4 полученная стационарная точка принадлежит заданному промежутку и на этом промежутке является точкой минимума </span>
<span>у (-4)=-16-0=-16</span>
А что удивляет? Вы рассматриваете элементы с номерами, не кратными 3. Операция нахождения остатка от целочисленного деления при делении нуля на n всегда дает ноль, поэтому ноль получается кратен любому числу.
Вы рассматриваете элементы с индексами 1,2,4,5,7,8,10,11,13 - всего 9 элементов.
И да - при таком условии элемент с нулевым индексом в эту совокупность элементов не входит.
Sub Iter()
Dim s As Double, pi As Double, e As Double, a As Double
Dim i As Long, znak As Integer, k As Long
e = InputBox("введите значение eps")
pi = 4 * Atn(1)
s = pi
i = 2
znak = 1
k = 0
a = Tan(pi / (2 * i))
Do While a >= e
s = s + znak * a
i = i + 1
a = Tan(pi / (2 * i))
znak = -znak
k = k + 1
Loop
MsgBox "Сумма равна " + Str(s) + ", количество слагаемых " + Str(k)
End Sub
Будем считать, что каждый символ в кодировке Unicode будет занимать 16 бит или 2 байта. Чтобы найти информационный объем монографии надо перемножить входные данные и умножить на 2 байта:
1024*56*64*2 = 7340032 байт = 7168 кбайт = 7 мбайт
Ответ: 7 мбайт