В прямоугольном треугольнике должна выполняться теорема Пифагора. Найдем самую длинную строну и проверим, является ли квадрат ее длины суммой квадратов длин двух других сторон. Для того, чтобы избежать ошибок округления примем, что все длины - натуральные числа.
PascalABC.NET 3.3.5, сборка 1662 от 29.04.2018 Внимание! Если программа не работает, обновите версию!
begin var (a,b,c):=ReadReal3('Введите через пробел или Enter стороны:'); if a>c then Swap(a,c); if b>c then Swap(b,c); if c*c=a*a+b*b then Writeln('Треугольник прямоугольный') else Writeln('Треугольник не прямоугольный') end.
Пример Введите через пробел или Enter стороны: 6 8 10 Треугольник прямоугольный
1) Информация для человека — это знания которые он получает из различных источников. 2) Информация понятна, если она выражена на языке доступном для получателя. 3) Сообщение может пополнить знания человека, если содержащиеся в нем сведения являются для человека понятными и новыми. 4) Знания человека можно разделить на две части - факты и правила. 5) К фактам относятся знания о определенных явлениях, событиях, свойствах объектов и зависимости между объектами. 6) К правилам относятся знания о последовательностях действий, направленных на достижение некоторой цели.
1) В грозу нередко возникают сильные ветра разрушительной силы 2) Куликовская битва состоялась 8 сентября 1380 года. 3) Золото, серебро, платина относятся к драгоценным металлам. 4) Луна является спутником Земли
PascalABC.NET 3.3.5, сборка 1662 от 29.04.2018
Внимание! Если программа не работает, обновите версию!
begin
var (a,b,c):=ReadReal3('Введите через пробел или Enter стороны:');
if a>c then Swap(a,c);
if b>c then Swap(b,c);
if c*c=a*a+b*b then Writeln('Треугольник прямоугольный')
else Writeln('Треугольник не прямоугольный')
end.
Пример
Введите через пробел или Enter стороны: 6 8 10
Треугольник прямоугольный