Question

Даны три стороны одного и три стороны другого треугольника. Эти треугольники равновеликие, т.е. имеют равные площади. пожалуйста

помогите решить в системе паскаль

Answer 1

Var   a, b, c, p,s,s1: real;
begin  
write('Введите три стороны треугольника: ');  
read(a, b, c); 
p := (a + b + c) / 2; 
s := sqrt(p * (p - a) * (p - b) * (p - c)); 
write('Введите три стороны другого треугольника: ');  
read(a, b ,c); 
p := (a + b + c) / 2; 
s1 := sqrt(p * (p - a) * (p - b) * (p - c)); 
write('Треугольники равновеликие -- ', s = s1) 
end.