Написать программу на языке Паскаль Дано: а,b,с Найти:S S=SQRT(p(p-a)(p-b)(p-c)) где р=(а+b+c)/2

19 Янв 2020 в 19:41
170 +1
1
Ответы
1

program TriangleSquare;
var
a, b, c, p, S: real;
begin
writeln('Enter the sides of the triangle:');
readln(a, b, c);

p := (a + b + c) / 2;
S := sqrt(p (p - a) (p - b) * (p - c));

writeln('The area of the triangle is: ', S:0:2);
end.

18 Апр 2024 в 19:40
Не можешь разобраться в этой теме?
Обратись за помощью к экспертам
Гарантированные бесплатные доработки в течение 1 года
Быстрое выполнение от 2 часов
Проверка работы на плагиат
Поможем написать учебную работу
Прямой эфир