Напишите пжалуйста программу в турбо паскале))..Вводятся 3 целых числа A, B и C,...

Question

Напишите пжалуйста программу в турбо паскале))..Вводятся 3 целых числа A, B и C, представляющие собой длины сторон треугольника. Вывести сообщение о том, является ли треугольник прямоугольным.

Answer 1

Uses crt;
var
a,b,c:integer;
begin
clrscr;
writeln('a,b,c ?');
readln(a,b,c);
if (sqr(a)+sqr(b)=sqr(c))or(sqr(a)+sqr(c)=sqr(b))or(sqr(b)+sqr(c)=sqr(a))then
   writeln('Y')
else
   writeln('N');
readkey
end.