с компьютера вводятся целые числа a b c, если а больше ,чем с²-b,то выведите a+b в противном случае выведите b+c
Ответы
Ответ дал:
0
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)
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)
Вас заинтересует
1 год назад
6 лет назад
6 лет назад
9 лет назад
9 лет назад
9 лет назад