Задание:
Привет всем! Помогите пожалуйста, времени мало… дано целое число m>1. Получить наибольшее целое k, при котором 4^k (четыре в степени k)
Решение:
4^k < m. Представим m как 4^log (4) m. (Это выражение равно m (по основному логарифмическому тождеству) , 4 — основание логарифма).4^k < 4^log (4) m.k < log (4) m. Т. Е по идее получается, что наибольшее целое 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.
Знаете другой ответ?