В прямоугольном треугольнике должна выполняться теорема Пифагора. Найдем самую длинную строну и проверим, является ли квадрат ее длины суммой квадратов длин двух других сторон. Для того, чтобы избежать ошибок округления примем, что все длины - натуральные числа.
<u>PascalABC.NET 3.3.5, сборка 1662 от 29.04.2018</u>
<u>Внимание! Если программа не работает, обновите версию!</u>
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.
<u>Пример</u>
Введите через пробел или Enter стороны: 6 8 10
Треугольник прямоугольный
1010 в десятичной = 1111110010 в двоичной
В полученном числе 7 единиц
Ответ: 7.
Если его параметр может принимать любое значение в пределах некоторого интервала!
Написано на Pascal
var
a,b,i:integer;
begin
writeln('Введите длины сторон шестиугольника:');
for i:=1 to 6 do begin
write('Длина '+i+' стороны: ');
readln(a);
b:=b+a;
end;
writeln('Периметр равен: '+b);
end.