Предполагаем без проверки, что треугольник по заданным длинам сторон построить можно (иначе надо убедиться. что сумма каждой пары сторон больше третьей стороны). А дальше выясняем, какая сторона самая длинная и полагаем, что две другие - это катеты. И проверяем, выполняется ли теорема Пифагора с точностью до какой-то допустимой погрешности, например, до 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.
А дальше выясняем, какая сторона самая длинная и полагаем, что две другие - это катеты. И проверяем, выполняется ли теорема Пифагора с точностью до какой-то допустимой погрешности, например, до 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.
Ввод: сторона_1 ^ сторона_2 ^ сторона_^3 С/П.
Результат: 1, если является, иначе 0.