Program abc; var a, b, c, d, h, s, p: real; begin writeln('Введите 3 стороны треугольника'); readln(a); readln(b); readln(c); if c > a + b then writeln('Ошибка! Одна сторона не может быть больше суммы двух других, введите третью сторону ещё раз или перезапустите программу и введите верные данные'); if c > a + b then readln(c); if (a > b) and (a > c) then d := a else if (b > c) then d := b else d := c; p := (a + b + c) / 2; s := sqrt(p * (p - a) * (p - b) * (p - c)); h := 2 * s / d; writeln('Высота равна - '+h);end.
var a, b, c, d, h, s, p: real;
begin
writeln('Введите 3 стороны треугольника');
readln(a);
readln(b);
readln(c);
if c > a + b then writeln('Ошибка! Одна сторона не может быть больше суммы двух других, введите третью сторону ещё раз или перезапустите программу и введите верные данные');
if c > a + b then readln(c);
if (a > b) and (a > c) then d := a else if (b > c) then d := b else d := c;
p := (a + b + c) / 2;
s := sqrt(p * (p - a) * (p - b) * (p - c));
h := 2 * s / d;
writeln('Высота равна - '+h);end.