привет всем!! помогите пожалуйста,времени мало.. дано целое число m>1. получить...

Question

привет всем!! помогите пожалуйста,времени мало.. дано целое число m>1. получить наибольшее целое k, при котором 4^k(четыре в степени k)

Answer 1

4^k < m.

представим m как 4^log(4)m. (Это выражение равно m (по основному логарифмическому тождеству), 4 - основание логарифма).

4^k < 4^log(4)m.</p>

k < log(4)m.</p>

 

Т.е по идее получается, что наибольшее целое k =  log(4)m с отбрасывание дробной части.

 

Сам код:

 

var m:integer; k:real;
begin
write('m = ');
readln(m);
k:=ln(m)/ln(4); {вычисляем логарифм m по основанию 4}
write('k = ',int(k)); {выводим целую часть}
end.