Задание 5:

Вроде вот так -
sum_pre=0; sum_post=1; xx=1/x;

for n=1 to 10 do
begin
sum_pre=xx^(2*n+1);
for i=1 to n do sum_post=sum_post*i;
sum_pre=sum_pre+sum_post;
end;
(смешал бейсик с паскалем, я не помню как в барсике циклы делать)

нетман, Мне особенно пронравилось слово смешал.

ilia19, Не, ну я бейсик забыл уже ))

ilia19, В бейсике пистатая фишка -> 6^2 возведение в степень

нетман, В VBA все это выглядит след образом
Sub VBA()
Dim N As Integer
Dim S As Double
Dim a As Double
Dim E As Double
Dim y As Integer
Dim i As Integer
Dim s1 As Double
Dim s2 As Double
Dim p As Double
y = InputBox("введите 1 для подсчета суммы N первых членов или 2 для подсчета суммы с погрешностью равной E", "Выбор метода")
If y = 1 Then
With Application.Workbooks.Item("МЭ11 Кондитерова Настя2.xls")
Worksheets("Лист1").Activate
Range("A1") = y
End With
N = InputBox("введите N", "ввод N")
With Application.Workbooks.Item("МЭ11 Кондитерова Настя2.xls")
Worksheets("Лист1").Activate
Range("A2") = N
End With
S = 0
For i = 1 To N
S = S + 7 / ((i + 1) ^ 2 - 10)
Next i
With Application.Workbooks.Item("МЭ11 Кондитерова Настя2.xls")
Worksheets("Лист1").Activate
Range("A3") = "Сумма равна"
Range("B3") = S
End With
ElseIf y = 2 Then
With Application.Workbooks.Item("МЭ11 Кондитерова Настя2.xls")
Worksheets("Лист2").Activate
Range("A1") = y
End With
E = InputBox("введите E меньше 0,01", "ввод E")
With Application.Workbooks.Item("МЭ11 Кондитерова Настя2.xls")
Worksheets("Лист2").Activate
Range("A2") = E
End With
S = 0
a = 1
i = 0
Do While Abs(a) >= E
i = i + 1
a = 7 / ((i + 1) ^ 2 - 10)
S = S + a
Loop
s1 = S - a
s2 = S
With Application.Workbooks.Item("МЭ11 Кондитерова Настя2.xls")
Worksheets("Лист2").Activate
Range("A3") = "Предпоследняя Сумма = "
Range("B3") = s1
Range("A4") = "Последняя Сумма = "
Range("B4") = s2
End With
Else: MsgBox "Ошибка"
End If
End Sub

это выше моего понимания :D