Advertisement
Guest User

Untitled

a guest
Aug 28th, 2015
60
0
Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
Pascal 0.45 KB | None | 0 0
  1. program vanopan;
  2. uses crt;
  3. var
  4.   a: array[1..1000] of longint;
  5.   l, r, i, mid, n, schet, x: longint;
  6.  
  7. begin
  8.   readln(n);
  9.   l := 1;
  10.   r := n + 1;
  11.   schet := 1;
  12.   while (r - l) > 1 do
  13.     begin
  14.       mid := (l + r) div 2;
  15.       if x > mid then
  16.         l := mid
  17.       else
  18.         r := mid;
  19.       if l = mid then
  20.         schet := schet + 1;
  21.       if r = mid then
  22.         schet := schet + 1;
  23.     end;
  24.   writeln(schet);
  25. end.
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement