Линейные алгоритмы Вычислить значение выражения по формуле (все переменные принимают действительные значения) ac⋅bd-ab-ccd

Линейные алгоритмы Вычислить значение выражения по формуле (все переменные принимают действительные значения) ac⋅bd-ab-ccd

Sub ex_1() 'Описание переменных Dim a, b, c, d As Double Dim rez As Double 'Ввод значений переменных a = CDbl (InputBox("a=")) b = CDbl (InputBox("b=")) c = CDbl (InputBox("c=")) d = CDbl (InputBox("d=")) rez = a / c * b / d - (a * b - c) / (c * d) 'Вывод результата MsgBox "Результат равен " + CStr(rez) End Sub