fork download
copy 
  1. program q;
  2. var a,b,c,d, a1, b1, c1 :integer;
  3. var e,p :real;
  4. begin
  5. a:=0; b:=0; c:=0; d:=0;
  6. read (a, b, c, d);
  7. a1:=a-d;
  8. b1:= b-d;
  9. c1:= c-d;
  10. p:= (a1+b1+c1)/2;
  11. e:=p*((p-a1)*(p-b1)*(p-c1));
  12. e:= sqrt(e);
  13. write (e:5);
  14. end.
Success #stdin #stdout 0s 4364KB
comments (?)
stdin
copy 
6 8 10 1
stdout
copy 
 1.7e+01
https://ideone.com/8gHKQs
language:
Pascal (gpc 20070904)
created:
6 years ago
visibility:
public

Share or Embed source code

Discover > Sphere Engine API

The brand new service which powers Ideone!

Discover > IDE Widget

Widget for compiling and running the source code in a web browser!