С компьютера вводятся целые числа a b c, если а больше ,чем с²-b,то выведите a+b в...

Question

С компьютера вводятся целые числа a b c, если а больше ,чем с²-b,то выведите a+b в противном случае выведите b+c

Answer 1

Dim a As Integer
Dim b As Integer       
Dim c As Integer
a = InputBox("Введите а")       
b = InputBox("Введите b")       
c = InputBox("Введите c")
If a>(c^2-b) then MsgBox(a+b) else MsgBox(b+c)