Как через QBasic найти катет прямоугольного треугольника

Question

Как через QBasic найти катет прямоугольного треугольника

Answer 1

Dim a As Integer
Dim b As Integer
Dim c As Integer
Input a'гипотенуза
Input b ' известный катет
с = sqr(a*a+b*b)