Комментарии: Решаем задачи Абрамян на Паскале. While9

Автор: Bronislav

Bronislav — Sun, 10 Dec 2017 22:11:07 +0000

меньше или равно

1	While power(3,k)<=n do Inc(k);

Anton — Fri, 07 Apr 2017 08:52:35 +0000

В ответ на Kirk. Да, круто. Добавил в шапку.

Kirk — Fri, 07 Apr 2017 08:35:55 +0000

Program w9;

Var

n,k: integer;

Begin

Readln(n);

k:=1;

While power(3,k)<n do Inc(k);

write(k);

End.