Как через QBasic найти катет прямоугольного треугольника
Как через QBasic найти катет прямоугольного треугольника
Гость
Ответ(ы) на вопрос:
ГостьDim a As Integer
Dim b As Integer
Dim c As Integer
Input a'гипотенуза
Input b ' известный катет
с = sqr(a*a+b*b)
Не нашли ответ?
Похожие вопросы