Моя плохая... Это же VBA)))
Код:
Dim a, b, c, d As Integer
Dim y As Long
Sub Main()
a = InputBox("Введи значение a", "Введите значение")
b = InputBox("Введи значение b", "Введите значение")
c = InputBox("Введи значение c", "Введите значение")
d = InputBox("Введи значение d", "Введите значение")
y = (Abs(3 * a * a - b)) ^ (1 / 2) - (c - d) ^ 3
MsgBox("Ваше значение" & Chr(13) & Chr(10) & y)
End Sub
Насчет 2. Задам наводящие вопросы.
Как проверить четность - нечетность?
Нечетное - это если при делении на 2 есть остаток. (это операция MOD)
Как проверить положительность - отрицательность?
Если чиcло > 0 - положительное
Менньше - отрицательное
(If Then Else)
