Guest User

Untitled

a guest
Jun 17th, 2018
78
0
Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
Delphi 0.52 KB | None | 0 0
  1. program Project2;
  2. {$APPTYPE CONSOLE}
  3. uses
  4.   SysUtils;
  5.  
  6.  
  7. var
  8.   n, k, h, w, i:integer;
  9.   l, r : int64;
  10.  
  11.  function ok(x : int64) : boolean;
  12.    begin
  13.     if (x div h)*(x div w)>=n then result:=true
  14.         else result:=false;
  15.     end;
  16.  
  17. begin
  18. reset(input, 'diploms.in');
  19.  rewrite(output, 'diploms.out');
  20.     read(w, h, n);
  21.  
  22.    l:=1;
  23.    r:=10000000;
  24.    while  r - l > 1 do begin
  25.        if ok((r+l) div 2) then r:=(r+l) div 2
  26.           else l:=(r+l) div 2;
  27.  
  28.    end;
  29.    writeln(r);
  30.    readln;
  31.    readln;
  32. end.
Add Comment
Please, Sign In to add comment