Найти,является ли треугольник со сторонами a,b,c прямоугольным либо нет?(паскаль)Помогите

Найти,является ли треугольник со гранями a,b,c прямоугольным или нет?(паскаль)
Помогите пожалуйста:(

Задать свой вопрос
1 ответ
Var
  a, b, c :integer;
 
begin

  readln(a,b,c);
  if (sqr(a) = sqr(b) + sqr(c)) or (sqr(b) = sqr(a) + sqr(c) or (sqr(c) = sqr(a) + sqr(b) then
    writeln('Треугольник прямоугольный')
  else
    writeln('Треугольник не прямоугольный');

end.

, оставишь ответ?
Имя:*
E-Mail:


Добро пожаловать!

Для того чтобы стать полноценным пользователем нашего портала, вам необходимо пройти регистрацию.
Зарегистрироваться
Создайте собственную учетную запить!

Пройти регистрацию
Авторизоваться
Уже зарегистрированны? А ну-ка живо авторизуйтесь!

Войти на сайт