Напишите программу, которая о трех числа решает могут ли они быть сторонами прямоугольного треугольника. Напишите программу так чтобы любое число могло быть гипотенузой. паскаль
program check_triangle; var a, b, c: integer; begin writeln′Введитетричисла:′'Введите три числа:'′Введитетричисла:′; readlna,b,ca, b, ca,b,c; if a∗a+b∗b=c∗ca*a + b*b = c*ca∗a+b∗b=c∗c or a∗a+c∗c=b∗ba*a + c*c = b*ba∗a+c∗c=b∗b or b∗b+c∗c=a∗ab*b + c*c = a*ab∗b+c∗c=a∗a then writeln′Этичисламогутбытьсторонамипрямоугольноготреугольника.′'Эти числа могут быть сторонами прямоугольного треугольника.'′Этичисламогутбытьсторонамипрямоугольноготреугольника.′
else writeln′Этичисланемогутбытьсторонамипрямоугольноготреугольника.′'Эти числа не могут быть сторонами прямоугольного треугольника.'′Этичисланемогутбытьсторонамипрямоугольноготреугольника.′; end.
Вы можете ввести три числа и программа проверит, могут ли они быть сторонами прямоугольного треугольника.
Пример программы на Pascal:
program check_triangle;var
a, b, c: integer;
begin
writeln′Введитетричисла:′'Введите три числа:'′Введитетричисла:′;
readlna,b,ca, b, ca,b,c;
if a∗a+b∗b=c∗ca*a + b*b = c*ca∗a+b∗b=c∗c or a∗a+c∗c=b∗ba*a + c*c = b*ba∗a+c∗c=b∗b or b∗b+c∗c=a∗ab*b + c*c = a*ab∗b+c∗c=a∗a then
writeln′Этичисламогутбытьсторонамипрямоугольноготреугольника.′'Эти числа могут быть сторонами прямоугольного треугольника.'′Этичисламогутбытьсторонамипрямоугольноготреугольника.′ else
writeln′Этичисланемогутбытьсторонамипрямоугольноготреугольника.′'Эти числа не могут быть сторонами прямоугольного треугольника.'′Этичисланемогутбытьсторонамипрямоугольноготреугольника.′;
end.
Вы можете ввести три числа и программа проверит, могут ли они быть сторонами прямоугольного треугольника.