в паскале Запросить с клавиатуры 3 стороны треугольника и по ним определить, является ли он прямоугольным, сообщение вывести на экран.Подсказка. Для каждой стороны применить теорему Пифагора и проверить, выполняется ли он...
в паскале Запросить
с клавиатуры 3 стороны треугольника и
по ним определить, является ли он
прямоугольным, сообщение вывести на
экран.
Подсказка.
Для каждой стороны применить теорему
Пифагора и проверить, выполняется ли
она. Если выполняется, то треугольник
является прямоугольным. Переменные
должны быть целыми числовыми. Функция
квадрата - sqr(x), корня квадратного -
sqrt(x). Программу проверить при сторонах
3, 4, 5 - прямоугольный, а 4, 5, 6 - не
прямоугольный.
Гость
Ответ(ы) на вопрос:
Гостьvar
A, B, C : integer;
begin
write('Введите A, B и C: ');
readln(A, B, C);
if (sqr(a) = sqr(b) + sqr(c)) or
(sqr(b) = sqr(a) + sqr(c)) or
(sqr(c) = sqr(b) + sqr(a)) then
writeln('Треугольник прямоугольный')
else
writeln('Треугольник не прямоугольный');
end.
Не нашли ответ?
Похожие вопросы