Question

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

Answer 1

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

Answer 2

Предполагаем без проверки, что треугольник по заданным длинам сторон построить можно (иначе надо убедиться. что сумма каждой пары сторон больше третьей стороны).
А дальше выясняем, какая сторона самая длинная и полагаем, что две другие - это катеты. И проверяем, выполняется ли теорема Пифагора с точностью до какой-то допустимой погрешности, например, до 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.

Answer 3

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