Даны стороны треугольника. Определить его вид: равносторонний, равнобедренный или разносторонний - и вывести сообщение об этом. И кроме того, если треугольник равносторонний, то найти его высоту, если он равнобедренный, то найти его полупериметр, а в противном случае найти его наибольшую сторону.

Предыдущий
вопрос Следующий
вопрос

var a,b,c:integer;

begin

readln(a,b,c);

if (a = b) and (b = c) then begin

writeln ('Треугольник равносторонний');

writeln('Его высота = ',(sqrt(3) * a)/2:0:3) 

end else 

if (a = b) or (b = c) or (c = a) then begin

writeln('Треугольник равнобедренный');

writeln('Его полупериметр = ',(a+b+c)/2); 

end else 

begin 

writeln('Треугольник разносторонний');

if (a>b) and (a>c) then writeln('Большая сторона = ',a) else

if (b>a) and (b>c) then writeln('Большая сторона = ',b) else

writeln('Большая сторона = ',c); end;

end.