Напишите пжалуйста программу в турбо паскале))..Вводятся 3 целых числа A, B и C, представляющие собой длины сторон треугольника. Вывести сообщение о том, является ли треугольник прямоугольным.
Напишите пжалуйста программу в турбо паскале))..Вводятся 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.
Не нашли ответ?
Похожие вопросы