цикл с условием

[Абай]

While4. Дано целое число N (> 0). Если оно является степенью числа 3, то
вывести TRUE, если не является — вывести FALSE.

[Alex11223]

var f:boolean;
...
a:=3;
f:=false;
while (a<n) do
begin
   a:=a*3;
   if (a = n) then f:=true;
end;
//вывод f и т.д.

[veniside]

Alex, если N = 3, ваша программа выведет False

Да и потом, троичный логарифм для кого?

result := (N > 1) and (frac(LogN(3, N)) < 0.0000001);

[Alex11223]

И где в троичном логарифме цикл while?)

Ага, так вроде и при N = 3 будет верно.

while (a<=n) do
begin
  if (a = n) then f:=true;
  a:=a*3;
end;

[veniside]

> И где в троичном логарифме цикл while? )

а, блин. Ну тогда вот такой цикл с условием: )

  while (true) do begin
    //
    result := (N > 1) and (frac(LogN(3, N)) < 0.0000001);
    break;
  end;