Question

Составьте программу позволяющую определить являются ли числа a, b, c пифагоровыми тройками.

Answer 1

Var
  a, b, c: real;

begin
  writeln('Введите числа 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(a) + sqr(b)) then
    writeln('Данные числа являются пифагоровым тройками')
  else 
    writeln('Данные числа не являются пифагоровым тройками');
end.