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

Замечание: if a>c then begin t:=a; a:=c; c:=t end; и if b>c then begin t:=b; b:=c; c:=t end; служат для обеспечения попадания в переменную "с" длины именно гипотенузы.

П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.