Задачу 7 пожалуйста,оплата 30 баллов
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
а можете через паскаль?
