Задать вопрос
27 февраля, 21:05

в паскале Запросить

с клавиатуры 3 стороны треугольника и

по ним определить, является ли он

прямоугольным, сообщение вывести на

экран.

Подсказка.

Для каждой стороны применить теорему

Пифагора и проверить, выполняется ли

она. Если выполняется, то треугольник

является прямоугольным. Переменные

должны быть целыми числовыми. Функция

квадрата - sqr (x), корня квадратного -

sqrt (x). Программу проверить при сторонах

3, 4, 5 - прямоугольный, а 4, 5, 6 - не

прямоугольный.

+2
Ответы (1)
  1. 27 февраля, 21:33
    0
    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.
Знаете ответ?
Сомневаетесь в ответе?
Найдите правильный ответ на вопрос ✅ «в паскале Запросить с клавиатуры 3 стороны треугольника и по ним определить, является ли он прямоугольным, сообщение вывести на экран. ...» по предмету 📘 Информатика, а если вы сомневаетесь в правильности ответов или ответ отсутствует, то попробуйте воспользоваться умным поиском на сайте и найти ответы на похожие вопросы.
Смотреть другие ответы
Похожие вопросы по информатике