var
a, b, c, p, s : real;
begin
read (a, b, c);
p : = (a + b + c) / 2;
s : = sqrt (p * (p - a) * (p - b) * (p - c)); //формула герона
writeln (s);
end.
Поделитесь своими знаниями, ответьте на вопрос:
Известны длины сторон треугольника a, b, c. напишите на языке паскаль программу, вычисляющую площадь этого треугольника. пример входных данных: а=3 b=4c=5. пример выходных данных s=6.0
program test; var a, b, c: integer; s, p: real; begin write('enter a: '); readln(a); write('enter b: '); readln(b); write('enter c: '); readln(c); p: =(a+b+c)/2; s: =sqrt(p*(p-a)*(p-b)*(p-c)); writeln('s = ', s); readln; end.