Предмет: Информатика,
автор: Tranquility1
Ребята, понимающие информатику. Помогите!
Приложения:

Ответы
Автор ответа:
0
// 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
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
Автор ответа:
0
Спасибо!
Автор ответа:
0
пожалуйста
Похожие вопросы
Предмет: География,
автор: cerednicenkoanatolij
Предмет: Физика,
автор: Аноним
Предмет: Алгебра,
автор: forewerflow
Предмет: Биология,
автор: Ksushka2501
Предмет: Математика,
автор: Smurnova