В прямоугольном треугольнике должна выполняться теорема Пифагора. Найдем самую длинную строну и проверим, является ли квадрат ее длины суммой квадратов длин двух других сторон. Для того, чтобы избежать ошибок округления примем, что все длины - натуральные числа.
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) Луна является спутником Земли
Внимание! Если программа не работает, обновите версию!
begin
var a:=ArrRandom(12,-50,50); a.Println;
var b:=a.Select(t->real(t)).ToArray;
b[4]:=a.Average; b.Println;
end.
Пример
3 -37 -3 13 33 27 -31 42 -34 16 -34 44
3 -37 -3 13 3.25 27 -31 42 -34 16 -34 44