Question

Паскаль. Дано A, B, C – кути трикутника. Визначити чи є цей трикутник прямокутним?

Answer 1

//прога на Pascal`e
var
a, b, c: longint;
begin

write ('Введите стороны треугольника: ');
read (a, b, c);

writeln ();
if (a*a=b*b+c*c) or (b*b=a*a+c*c) or (c*c=b*b+a*a) then
write ('Треугольник - равнобедренный')
else
write ('Треугольник - не равнобедренный');

end.