Advertisement
Guest User

Untitled

a guest
Aug 22nd, 2017
79
0
Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
text 0.38 KB | None | 0 0
  1. program p2385926;
  2. const
  3. M=7;
  4. var
  5. a,b,c,d,e:Integer;
  6. LHS,f:Double;
  7. begin
  8. 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
  9. LHS:=(a-b)/(b+c)+(b-c)/(c+d)+(c-d)/(d+e)+(d-e)/(e+a)+(e-a)/(a+b);
  10. f:=abs((a-b)*(b-c)*(c-d)*(d-e)*(e-a)/((b+c)*(c+d)*(d+e)*(e+a)*(a+b)));
  11. if (LHS+0.1)<f then begin writeln(a,' ',b,' ',c,' ',d,' ',e); halt end;
  12.  
  13. end;
  14. end.
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement