Advertisement
Not a member of Pastebin yet?
Sign Up,
it unlocks many cool features!
- program p2385926;
- const
- M=7;
- var
- a,b,c,d,e:Integer;
- LHS,f:Double;
- begin
- for a:=1 to M do for b:=1 to M do for c:=1 to M do for d:=1 to M do for e:=1 to M do begin
- LHS:=(a-b)/(b+c)+(b-c)/(c+d)+(c-d)/(d+e)+(d-e)/(e+a)+(e-a)/(a+b);
- f:=abs((a-b)*(b-c)*(c-d)*(d-e)*(e-a)/((b+c)*(c+d)*(d+e)*(e+a)*(a+b)));
- if (LHS+0.1)<f then begin writeln(a,' ',b,' ',c,' ',d,' ',e); halt end;
- end;
- end.
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement