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

Вычислите площадь треугольника по заданным длинам A B C

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

//PascalABC
var
    a, b, c, P, S : real;
begin
    write(Введите длину стороны A> );
    readln(A);
    write(Введите длину стороны B> );
    readln(B);
    write(Введите длину стороны C> );
    readln(C);
    writeln(Вычисление по формуле Герона);
    P := (A + B + C) / 2;
    S := sqrt(P * (P - A) * (P - B) * (P - C));
    writeln(Площадь треугольника S = , S);
end.