с компьютера вводятся целые числа a b c, если а больше ,чем с²-b,то выведите a+b в противном случае выведите b+c
Ответы на вопрос
Ответил Dmon55
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)
Новые вопросы
Математика,
2 года назад
Алгебра,
2 года назад
Химия,
9 лет назад
Биология,
9 лет назад
Литература,
9 лет назад
Алгебра,
9 лет назад