• Дано целое число m>1. Получить наибольшее целое k, при котором 4^k<m

Ответы 1

  • var m,mk,k:integer;beginreadln(m);k:=0;mk:=1;while mk<m do begin mk:=mk*4; k:=k+1; end;k:=k-1;writeln(k);end.Пример:5004
  • Добавить свой ответ

Войти через Google

или

Забыли пароль?

У меня нет аккаунта, я хочу Зарегистрироваться

How much to ban the user?
1 hour 1 day 100 years