v1248
Sub fD() X = Cells(3, 3) ' Ввод Х If X > 0 Then D = 0 For Y = 1 To 5 D = D + Y + Cos(X) Next Y Else D = 1 For Y = 1 To 10 D = D * (Y - X) Next Y End If Cells(3, 4) = D ' Вывод D End Sub Пример реализации на VBA Excel Код программы можно посмотреть Alt+F11
Answers & Comments
X = Cells(3, 3) ' Ввод Х
If X > 0 Then
D = 0
For Y = 1 To 5
D = D + Y + Cos(X)
Next Y
Else
D = 1
For Y = 1 To 10
D = D * (Y - X)
Next Y
End If
Cells(3, 4) = D ' Вывод D
End Sub
Пример реализации на VBA Excel
Код программы можно посмотреть Alt+F11