С1. Напишите программу, вычисляющую площадь треугольника, если длины сторон треугольника вводятся с клавиатуры.

Программа для вычисления площади треугольника:

Для вычисления площади треугольника по трем сторонам будем использовать формулу Герона.

Формула Герона:

1. Вычисляем полупериметр (p): p = (a + b + c) / 2

2. Площадь (S): S = sqrt(p * (p - a) * (p - b) * (p - c))

Где a, b, c — длины сторон треугольника.

program TriangleArea;var a, b, c, p, s: Real;begin  writeln('Введите длину первой стороны треугольника:');  readln(a);  writeln('Введите длину второй стороны треугольника:');  readln(b);  writeln('Введите длину третьей стороны треугольника:');  readln(c);  { Проверка условия существования треугольника }  if (a + b > c) and (a + c > b) and (b + c > a) then  begin    p := (a + b + c) / 2;    s := sqrt(p * (p - a) * (p - b) * (p - c));    writeln('Площадь треугольника равна: ', s:0:2);  end  else  begin    writeln('Треугольник с такими сторонами не существует.');  end;end.