Наибольшее целое n для условия - Pascal ABC

Формулировка задачи:

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

Код к задаче: «Наибольшее целое n для условия - Pascal ABC»

textual
var
  a: real;
  n, m: integer;
 
begin
  repeat
    write('m = ');
    readln(m)
  until m > 1;
  n := -1;
  a := 1;
  repeat
    inc(n);
    a := a * 4
  until a >= m;
  writeln('n = ', n);
  readln
end.

13   голосов, оценка 3.846 из 5


СОХРАНИТЬ ССЫЛКУ