напишите код на qbasic Код к задаче: «Определить вид треугольника по трем его сторонам - QBasic»

Думаешь, этот qbasic кто-то помнит? Сейчас компилятор без "танцев с бубном" нигде не запустить

Я помню. Определить очень просто - по теореме Пифагора.
Если одна сторона больше или равна сумме двух других сторон, то треугольник из них построить нельзя.
Если построить можно, то проверяем квадраты сторон.
Если сумма квадратов двух меньших сторон меньше квадрата наибольшей стороны, то треугольник остроугольный.
Если сумма равна квадрату наибольшей стороны, то прямоугольный.
И, наконец, если сумма меньше квадрата наибольшей стороны, то тупоугольный.

Sub Treug
Dim a, b, c As Single
Input "Vvedite 1 storonu", a
Input "Vvedite 2 storonu", b
Input "Vvedite 3 storonu", c
If (a>=b) And (a>=c) Then
____If (b+c <= a) Then
________Print "Eto ne treugolnik"
____ElseIf (b^2+c^2 > a^2) Then
________Print "Ostrougolniy"
____ElseIf (b^2+c^2 = a^2) Then
________Print "Priamougolniy"
____Else Print "Tupougolniy"
____End If
ElseIf (b>=a) And (b>=c)
____If (a+c <= b) Then
________Print "Eto ne treugolnik"
____ElseIf (a^2+c^2 > b^2) Then
________Print "Ostrougolniy"
____ElseIf (a^2+c^2 = b^2) Then
________Print "Priamougolniy"
____Else Print "Tupougolniy"
____End If
ElseIf (c>=a) And (c>=b) Then
____If (a+b <= c) Then
________Print "Eto ne treugolnik"
____Elseif (a^2+b^2 > c^2) Then
________Print "Ostrougolniy"
____ElseIf (a^2+b^2 = c^2) Then
________Print "Priamougolniy"
____Else Print "Tupougolniy"
____End If
End If
End