Опубликовано 22.08.2017 по предмету Информатика от Гость >> <<

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

Ответ оставил Гость

Var a,b,c:real;
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.