Question

Даны три массива одинаковой размерности 5, в которых содержатся стороны треугольников Ai, Bi,Ci. Определите периметр Pi и площадь Si каждого треугольника по формуле Герона. Массивы A,B,C задать статически.

Answer 1

Program krasavitsya;
var t, a, b, c, p, s:real;
begin
for i:= 1 to 5 do
begin
read(a,b,c);
p:= a + b + c;
t = p / 2;
s = sqrt(t * (t - a) *(t - b)*(t - c));
writeln(p,'  ',s); 
end;
end.