Предмет: Информатика,
автор: лиза1315
помогите пожалуйста. Надо в Паскаль АВС
1и2 задача . Очень надо
Приложения:
Ответы
Автор ответа:
1
program geron;
var
x,y,z,p:integer;
s:real;
begin
read(x,y,z);
p:=(x+y+z) div 2;
s:=sqrt(p*(p-x)*(p-y)*(p-z));
writeln(s:0:2);
end.
var
x,y,z,p:integer;
s:real;
begin
read(x,y,z);
p:=(x+y+z) div 2;
s:=sqrt(p*(p-x)*(p-y)*(p-z));
writeln(s:0:2);
end.
интернет адский ,нужно время чтобы залить для биссектрис ответ
Похожие вопросы
Предмет: Английский язык,
автор: Timurtator
Предмет: Українська мова,
автор: avengersan121
Предмет: Химия,
автор: pGLhlh000
Предмет: Русский язык,
автор: schep83
Предмет: Другие предметы,
автор: julias005
var
x,y,z,p:integer;
s:real;
begin
read(x,y,z);
p:=(x+y+z)/2;
s:=sqrt(p*(p-x)*(p-y)*(p-z));
writeln(s:0:2);
end.