Алг
нач
вещ a, b, c
лог d
a := 1
b := 0
c := 0
d := да
нц пока (d)
ввод a
ввод b
ввод c
если не ((a < b+c) и (b < a+c) и (c < a+b)) то
вывод "Треугольник A(", a, ") B(", b, ") C(", c, ") не существует"
d := нет
иначе
если (((a ** 2 = b ** 2 * c ** 2) или (b ** 2 = a ** 2 + c ** 2) или (c ** 2 = a ** 2 + b ** 2)) и ((a <> b) и (b <> c))) то
вывод "Треугольник A(", a, ") B(", b, ") C(", c, ") прямоугольный", нс
все
все
кц
кон
Она спрашивает стороны, пока не введёшь стороны несуществующего треугольника (например 1-0-1) =)