Advertisement
Not a member of Pastebin yet?
Sign Up,
it unlocks many cool features!
- program HelloWorld;
- function m(a, b : real) : real;
- begin
- m:=(a*a+b*b)/(a*a+5*a*b+4*b*b+4);
- end;
- var
- S, T, y: real;
- begin
- Read(s,t);
- y:=m(2,s)+m(t,s)+m(2*s,s*t);
- writeln(y);
- end.
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement