Решаем задачи Абрамян на Кумире. While9

While9. Дано целое число $$N$$ ($$> 1$$). Найти наименьшее целое число $$K$$, при котором выполняется неравенство $$3^K > N$$.

Решение Дмитрий:

алг While9(арг цел N, рез цел K)
дано N>1
нач
 цел C
 K:=1
 C:=3
 нц пока C<=N
  C:=C*3
  K:=K+1
 кц 
кон

алг While9(арг цел N, рез цел K)

дано N>1

нач

цел C

K:=1

C:=3

нц пока C<=N

C:=C*3

K:=K+1

кц

кон

Другие задачи из раздела While можно посмотреть здесь.