Известны длины сторон треугольника a, b, c. Написать программу, вычисляющую площадь этого...

Question

Известны длины сторон треугольника a, b, c. Написать программу, вычисляющую площадь этого треугольника (по формуле Герона). Выполнить программу для исходных данных a=3, b=4, c=5. Язык Паскаль.

Answer 1

Uses crt;
var a,b,c:integer;     
p:real;
begin       
writeln('Введите a'); readln(a);       
writeln('Введите b'); readln(b);       
writeln('Введите c'); readln(c);               
p := (a+b+c)/2;       
// √(p·(p - a)·(p - b)·(p - c))       
writeln('Площадь: ', sqrt(p*(p - a)*(p - b)*(p - c)));
end.

Answer 2

//PascalABC.NET
//Версия 3.3, сборка 1634
begin
var (a,b,c):=ReadReal3;
var p:=(a+b+c)/2;
write('S=',sqrt(p*(p-a)*(p-b)*(p-c)));
end.

Пример:
3 4 5
S=6