Известны длины сторон треугольника a,b,c. напишите на языке Паскаль программу, вычисляющую площадь этого треугольника. пример входных данных: а=3 b=4c=5. пример выходных данных S=6.0
program triangleArea va a, b, c, p, S: real begi // ввод длин сторон треугольник writeln('Введите длины сторон треугольника a, b и c:') readln(a, b, c);
// вычисление полупериметр p := (a + b + c) / 2;
// вычисление площади треугольника по формуле Герон S := sqrt(p (p - a) (p - b) * (p - c));
program triangleArea
va
a, b, c, p, S: real
begi
// ввод длин сторон треугольник
writeln('Введите длины сторон треугольника a, b и c:')
readln(a, b, c);
// вычисление полупериметр
p := (a + b + c) / 2;
// вычисление площади треугольника по формуле Герон
S := sqrt(p (p - a) (p - b) * (p - c));
// вывод результа
writeln('Площадь треугольника: ', S:0:1)
end.