Cоставить программу, которая находит наименьшее натуральное число n, при котором 3^n>=100, и результат – наименьшее число n выводит – на экран.
В соответствии с определением логарифма можно написать, что n≥㏒₃100 или begin Writeln('n=',Trunc(ln(100)/ln(3))+1) end. Результат n=5