Задача на цикл Опции

[Барс]

Нужон хелп. Никак не могу добиться, чтобы лишний раз цикл не прокручивался.

Задача.Дано целое число N (> 1). Вывести наибольшее целое K, при котором выполняется неравенство 3^K < N, и само значение 3^K. 

Program j;
uses Crt;
var
  b, n, k:integer;
begin
  ClrScr;
  write('Введите n='); readln(n);
  b:=1; k:=0;
    repeat
      k:=k+1;
      b:=b*3;
    until b>n;
  writeln('k=', k, ' 3^k=', b);
readln;
end.

С while тоже не получается.

[Lapp]

Ай-яй-яй А как же проверка граничных случаев?

Если честно, не делал ее тут. Виноват )).

Ну вот я и возьму > 1. Двойку, к примеру. А мне твой цикл скажет, что тройка меньше двух? И вообще, что 3⁰ = 3?

Володь, я не совсем понимаю, о чем ты.. При чем тут 3<2?
Для простоты, я приведу код, который я использовал, один в один:

var
  n,k,b: longint;

begin
  readln(n);
  b:=1;
  k:= -1;
  repeat
    Inc(k);
    b:= b*3
  until b>=n;
  //k:= Trunc(ln(N-1)/ln(3));
  writeln('k = ',k,'    3^k = ',Round(exp(ln(3)*k)));
  readln
end.

И еще заодно ее выдачу:

Running "c:\_\dropbox\pas\fp\fp120322_bars\fp120322_bars_lapp.exe "
4
k = 1    3^k = 3

Running "c:\_\dropbox\pas\fp\fp120322_bars\fp120322_bars_lapp.exe "
3
k = 0    3^k = 1

Running "c:\_\dropbox\pas\fp\fp120322_bars\fp120322_bars_lapp.exe "
2
k = 0    3^k = 1

Running "c:\_\dropbox\pas\fp\fp120322_bars\fp120322_bars_lapp.exe "
1
k = 0    3^k = 1

Все вроде в порядке, включая n=2. На последний не обращай внимания, это так, за компанию )). Или я что-то не понимаю?..

Это не препод, это самообучение (решил, вот, заняться программированием, да и мозг покачать). А строку к:=-1 сам хотел вставить, но мне показалось, что это попахивает подгонкой результата.

Похвально, +1 ))
Подгонка - это не свойство программы. Это способ сдать задачу. Если ты понимаешь, что делаешь и почему - это не подгонка, а решение.

Обратил внимание когда вы ответы публикуете. Реально в 4 или в 5 утра?

Нет, не реально ). У меня в этот момент 5-6 вечера, самое время отдохнуть от работы )).