Question

1. Треугольник задан своими сторонами. Выяснить является ли он прямоугольным. (ЧЕРЕЗ PASKAL)

Answer 1

Var a,b,c:real;
Begin
Write('a = ');ReadLn(a);
Write('b = ');ReadLn(b);
Write('c = ');ReadLn(c);
if (a<b+c)and(b<c+a)and(c<a+b) then
   Begin
   a:=a*a;
   b:=b*b;
   c:=c*c;
   if (a+b=c)or(b+c=a)or(c+a=b) then WriteLn('Δabc - прямоугольный')
   else WriteLn('Δabc не является прямоугольным');
   End
else WriteLn('Δabc не существует')
End.