Даны стороны треугольника. Определить его вид: равносторонний, равнобедренный или разносторонний - и вывести сообщение об этом. И кроме того, если треугольник равносторонний, то найти его высоту, если он равнобедренный, то найти его полупериметр, а в противном случае найти его наибольшую сторону.
Даны стороны треугольника. Определить его вид: равносторонний, равнобедренный или разносторонний - и вывести сообщение об этом. И кроме того, если треугольник равносторонний, то найти его высоту, если он равнобедренный, то найти его полупериметр, а в противном случае найти его наибольшую сторону.
Не можешь разобраться в этой теме?
Обратись за помощью к экспертам
Гарантированные бесплатные доработки в течение 1 года
Быстрое выполнение от 2 часов
Проверка работы на плагиат
Поможем написать учебную работу
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.