Advertisement
Guest User

Untitled

a guest
Jan 22nd, 2018
71
0
Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
Pascal 0.52 KB | None | 0 0
  1. {$APPTYPECONSOLE}
  2. var
  3.   a, b, c, d, sum: double;
  4.   function square(a, b, c: double):double;
  5.     var
  6.       p: double;
  7.     begin
  8.       if (a + b <= c) or (b + c <= a) or (a + c <= b) then begin
  9.         writeln (‘There is no such triangle’);
  10.         halt (0);
  11.       end;
  12.       p := (a + b + c) / 2;
  13.       result := sqrt (p * (p - a) * (p - b) * (p - c));
  14.     end;
  15.   begin
  16.     readln(a, b, c, d);
  17.     sum := square (1, 2, a) + square (2, 2.5, b) + square(2.5, c, d);
  18.     writeln (sum);
  19.     readln;
  20.     readln;
  21.   end;
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement