Not a member of Pastebin yet?
Sign Up,
it unlocks many cool features!
- program prim_1;
- var a,b,c,p:real;
- begin
- write('введите a=');readln(a);
- write('введите b=');readln(b);
- write('введите c=');readln(c);
- p:=(a+b+c)/2;
- writeln(2*arctan(sqrt(((p-b)*(p-c))/(p*(p-a)))));
- writeln(2*arctan(sqrt(((p-a)*(p-c))/(p*(p-b)))));
- writeln(2*arctan(sqrt(((p-a)*(p-b))/(p*(p-c)))));
- readln;
- end.
Add Comment
Please, Sign In to add comment