Question

Задачу 7 пожалуйста,оплата 30 баллов

Answer 1

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

9363cd9cd053b3d81fff1b92d63c0025.xls

Answer 2

а можете через паскаль?