1. Определите результат работы программы. Запишите математическую формулу для вычисления значения s.
var
a, b, c: integer;
p, s: real;
begin
a := 12;
b := 5;
c := 13;
p := (a + b + c) / 2;
s := p;
s := s * (p — a);
s := s * (p — b);
s := s * (p — c);
s := sqrt(s);
write(‘s = ‘, s)
end.
Ответ
Результат работы программы будет вычисление и вывод значения переменной s.
Математическая формула для вычисления значения s:
s = √(p(p-a)(p-b)(p-c))
Где p — полупериметр треугольника, a, b, c — длины его сторон.