!!!!!!!!!!!!!!!!!!!! пользователь вводит длины отрезков (стороны треугольника) Определить является ли он прямоугольным? Пожалуйста!!

П2 -> П1 -> П0 x^2 ИП1 x^2 + ИП2 x^2 - x#0 36 ИП0 x^2 ИП2 x^2 + ИП1 x^2 - x#0 36 ИП2 x^2 ИП1 x^2 + ИП0 x^2 - x#0 36 0 С/П 1 С/П Ввод: сторона_1 ^ сторона_2 ^ сторона_^3 С/П. Результат: 1, если является, иначе 0.

Предполагаем без проверки, что треугольник по заданным длинам сторон построить можно (иначе надо убедиться. что сумма каждой пары сторон больше третьей стороны). А дальше выясняем, какая сторона самая длинная и полагаем, что две другие - это катеты. И проверяем, выполняется ли теорема Пифагора с точностью до какой-то допустимой погрешности, например, до 10⁻⁹. const   eps=1e-9; // допустимая погрешность var   a,b,c,t:real; // c - гипотенуза begin   Write('Введите длины сторон треугольника: '); Read(a,b,c);   if a>c then begin t:=a; a:=c; c:=t end;   if b>c then begin t:=b; b:=c; c:=t end;   if abs(a*a+b*b-c*c)<=eps then Writeln('Треугольник прямоугольный')   else Writeln('Треугольник не прямоугольный') end.