Question

Ребята, понимающие информатику. Помогите!

Answer 1

// PascalABC.NET 3.1, сборка 1171 от 15.02.2016
function geron(a,b,c:real):real;
begin
  var p:=(a+b+c)/2;
  Result:=sqrt(p*(p-a)*(p-b)*(p-c))
end;

begin
  var x,y,z,t,d:real;
  Write('Введите x,y,z,t,d через пробел: ');
  Read(x,y,z,t,d);
  Writeln('S=',geron(x,d,t)+geron(d,y,z):0:4)
end.

Тестовое решение:
Введите x,y,z,t,d через пробел: 3 4 5 6 8 7
S=15.8260

Answer 2

Спасибо!

Answer 3

пожалуйста