saahmetovakarina
13.09.2022 18:05

Впаскале запросить с клавиатуры 3 стороны треугольника и по ним определить, является ли он прямоугольным, сообщение вывести на экран. подсказка. для каждой стороны применить теорему пифагора и проверить, выполняется ли она. если выполняется, то треугольник является прямоугольным. переменные должны быть целыми числовыми. функция квадрата - sqr(x), корня квадратного - sqrt(x). программу проверить при сторонах 3, 4, 5 - прямоугольный, а 4, 5, 6 - не прямоугольный.

Нажмите на рекламу ниже и сразу увидите ответ
Популярные вопросы:
Ответ:
sashaWinka
12.07.2020 09:22
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.
0,0(0 оценок)
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota Оформи подписку
logo
Начни делиться знаниями
Вход Регистрация
Что ты хочешь узнать?
Спроси ai-бота