Guest User

Untitled

a guest
Apr 20th, 2018
78
0
Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
text 0.35 KB | None | 0 0
  1. program prim_1;
  2. var a,b,c,p:real;
  3. begin
  4. write('введите a=');readln(a);
  5. write('введите b=');readln(b);
  6. write('введите c=');readln(c);
  7. p:=(a+b+c)/2;
  8. writeln(2*arctan(sqrt(((p-b)*(p-c))/(p*(p-a)))));
  9. writeln(2*arctan(sqrt(((p-a)*(p-c))/(p*(p-b)))));
  10. writeln(2*arctan(sqrt(((p-a)*(p-b))/(p*(p-c)))));
  11. readln;
  12. end.
Add Comment
Please, Sign In to add comment