Advertisement
Guest User

Untitled

a guest
Dec 19th, 2014
196
0
Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
Pascal 0.57 KB | None | 0 0
  1. var
  2.   f1,f2:text;
  3.   min2,min1,w1,h1:int64;
  4. n: int64;
  5.  w,h,sq:int64;
  6.   x1,y1,mid:int64;
  7. procedure bin (minn,maxx:int64);
  8. begin
  9.   if (abs(maxx-minn)=0) then
  10. begin
  11.     min2:=minn;
  12.     exit;
  13.   end;
  14.     mid:=(minn+maxx) div 2;
  15.  
  16.       if ((mid div w) * (mid div h)>=n) then
  17.        bin(minn,mid)
  18.       else
  19.        bin(mid + 1,maxx);
  20.  
  21.  
  22. end;
  23.    
  24. begin
  25.   assign(f1,'diploma.in');
  26.   assign(f2,'diploma.out');
  27.   reset(f1);
  28.   rewrite(f2);
  29.   read(f1,w);
  30.   read(f1,h);
  31.   read(f1,n);
  32.      
  33.   bin(1,w * n);
  34.    
  35.    
  36. write(f2,min2);
  37. close(f1);
  38. close(f2);
  39.    
  40. end.
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement