
Vaat
5 год назад
Как через QBasic найти катет прямоугольного треугольника
ОТВЕТЫ

Holmes Gerald
Oct 24, 2020
Dim a As Integer
Dim b As Integer
Dim c As Integer
Input a'гипотенуза
Input b ' известный катет
с = sqr(a*a+b*b)
Dim b As Integer
Dim c As Integer
Input a'гипотенуза
Input b ' известный катет
с = sqr(a*a+b*b)
625
Смежные вопросы: