Advertisement
Guest User

Untitled

a guest
Jul 26th, 2017
85
0
Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
text 0.44 KB | None | 0 0
  1. program Project1;
  2.  
  3. {$APPTYPE CONSOLE}
  4.  
  5. uses
  6. SysUtils;
  7.  
  8. var
  9. x,y,x1,x2,y2,s:integer;
  10. r,rr:real;
  11. begin
  12. assign(input,'input.txt');
  13. assign(output,'output.txt');
  14. reset(input);
  15. rewrite(output);
  16.  
  17.  
  18. readln(input, x,y,x1,x2,y2,s);
  19. r:=x-x1+sqrt(sqr(x2-x)+sqr(y2));
  20. rr:=x1+y+sqrt(sqr(x2)+sqr(y2-y));
  21.  
  22. if (s>=r)or(s>=rr) then
  23. writeln(output,'YES') else
  24. writeln(output,'NO');
  25. // writeln(output,a+b);
  26.  
  27.  
  28. close(output);
  29. close(input);
  30. end.
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement