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

Question

Информатика

Лукинична

17 декабря, 11:23

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

+4

Ответы (1)

Знаете ответ на вопрос?

Зоря · 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.