Jater

Elena_while

Nov 27th, 2012
82
Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
  1. {Дано целое число m>1.
  2. Получить наибольшее целое k, при котором 4^k<m.}
  3. var
  4.     x,m,k,i:integer;
  5. begin
  6.     write('Vvedi m: ');
  7.     readln(m);
  8.     k:=0;x:=1;
  9.     if m<4 then writeLN(k)
  10.     else
  11.     begin
  12.         while x<m do
  13.         begin
  14.             inc(k);
  15.             x:=x*4;
  16.         end;
  17.         writeLN(k-1);
  18.     end;
  19.     read;
  20. End.
RAW Paste Data