Опубликовано 11.06.2017 по предмету Информатика от Гость >> <<

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

Ответ оставил Гость

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.