Написать программу: Даны длины сторон треугольника a,b,c. Является ли он прямоугольным?

Question

Написать программу:
Даны длины сторон треугольника a,b,c. Является ли он прямоугольным?

Comments

Найти наибольшее из чисел. Треугольник прямоугольный, если квадрат этого числа равен сумме квадратов остальных чисел.

---

мне программа нужна. это я и так знаю

---

Плохо, что Вы не можете по готовому алгоритму написать простейшую программу. В перспективе с таким подходом Вы будете обречены постоянно просить, чтобы за Вас делали всю работу. Думайте...

Answer 1

Var a,b,c,t:real;
begin
readln(a,b,c);
if b>a then begin
  t:=a;
  a:=b;
  b:=t;
end;
if c>a then begin
  t:=a;
  a:=c;
  c:=t;
end;
if (a*a=b*b+c*c) then writeln('Треугольник прямоугольный') else writeln('Треугольник не прямоугольный');
end.