Question

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

Answer 1

//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

Answer 2

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.