input3.txt

来自「词 法 分 析 器 Delphi7.0 很好的 东西 啊」· 文本 代码 · 共 10 行

 program a ;
 var 
   x , y , z , p , s : real ;
 begin 
    read ( x , y , z ) ;
  p :=( x + y + z)/2;
  s := sqrt ( p *( p - x )*(p - y ) * ( p - z ));
  writeln ( s );
 end .