Помогите пожалуйста. Надо в Паскаль АВС 1и2 задача . Очень надо
Помогите пожалуйста. Надо в Паскаль АВС
1и2 задача . Очень надо
Гость
Ответ(ы) на вопрос:
Гость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.
Не нашли ответ?
Похожие вопросы