Даны три стороны треугольника. Разработайте код, с помощью которого можно определить,...

Question

Даны три стороны треугольника. Разработайте код, с помощью которого можно определить, является ли данный треугольник прямоугольным.(Pascal)

Answer 1

PascalABC.NET 3.4.0, сборка 1672 от 10.06.2018
Внимание! Если программа не работает, обновите версию!

begin
  var a:=ReadSeqReal('Введите длины сторон:',3).OrderBy(t->t).ToArray;
  if Sqr(a[2])=Sqr(a[0])+Sqr(a[1]) then Writeln('Треугольник прямоугольный')
  else Writeln('Треугольник не прямоугольный')
end.

---