Информатика, опубликовано 2018-08-22 22:06:40 by Гость

Вычислите площадь треугольника по заданным длинам 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.

Не нашли ответа?

Если вы не нашли ответа на свой вопрос, или сомневаетесь в его правильности, то можете воспользоваться формой ниже и уточнить решение. Или воспользуйтесь формой поиска и найдите похожие ответы по предмету Информатика.