помогите пожалуйста.вот фото.QBasic
Один из вариантов на VBA EXCEL Sub raschetZ() x = Cells(2, 3) Y = Cells(4, 3) Z = 0 If x > 1 And Y > -1 Then Z = Cos(x - Y) + (Cos(x + Y)) ^ 2 Else If x = 0 Then Z = "решение отсутствует. при X=0 деление на 0" Else Z = (x + Y) * Y / -x End If End If Cells(6, 3) = Z End Sub
