Есть ли требования к площадке соревнования, если есть, то какие?

Question

Информатика: Есть ли требования к площадке соревнования, если есть, то какие?

yuiopaw · Accepted Answer

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.

MOGZ ответил