известны длины сторон треугольника a, b, c. напишите на языке Паскаль программу, вычисляющую площадь этого треугольника. пример входных данных: a=3 b=4 c=5. пример выходных данных: S=6.0

Как делаю я: площадь по трём сторонам удобно считать по формуле Герона. Сначала находим полупериметр $p=(a+b+c)/2$, затем $S=\sqrt{p(p-a)(p-b)(p-c)}$. В примере $a=3, b=4, c=5$ получаем $p=6$ и $S=\sqrt{6\cdot3\cdot2\cdot1}=6$.

Ниже рабочая программа на Паскале, которая читает ввод именно в формате из примера (a=3 b=4 c=5) и печатает S= с одной цифрой после запятой:

pascal
Копировать код
program TriangleArea;
var
  a, b, c, p, S: real;
  ch: char;
begin
  { читаем a=... b=... c=... }
  read(ch); read(ch); read(a);  { 'a' '=' число }
  read(ch); read(ch); read(b);  { 'b' '=' число }
  read(ch); read(ch); read(c);  { 'c' '=' число }
  { формула Герона }
  p := (a + b + c) / 2;
  S := sqrt( p * (p - a) * (p - b) * (p - c) );
  writeln('S=', S:0:1);
end.

Проверка на вашем примере:

• Ввод: a=3 b=4 c=5

• Вывод: S=6.0