Advertisement
Guest User

Untitled

a guest
Jul 26th, 2017
60
0
Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
Delphi 0.47 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