Написать программу:

Даны длины сторон треугольника a, b, c. Является ли он прямоугольным?

Question

Информатика

Авдуся

14 ноября, 07:07

Написать программу:

Даны длины сторон треугольника a, b, c. Является ли он прямоугольным?

+4

Ответы (1)

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

Пава · Answer 1

Var a, b, c, t:real;

begin

readln (a, b, c) ;

if b>a then begin

t:=a;

a:=b;

b:=t;

end;

if c>a then begin

t:=a;

a:=c;

c:=t;

end;

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

end.

Написать программу:Даны длины сторон треугольника a, b, c. Является ли он прямоугольным?

Написать программу:

Даны длины сторон треугольника a, b, c. Является ли он прямоугольным?