Delphi

[АлександрНСК]

Логической переменной t присвоить значение True или False в зависимости от того является натуральное число k степенью числа 3 или нет. Нужен код для Delphi.Не могу справиться...=(

[Mad_Cat]

while K>1 do
k:=k /3
t:=abs(k-1)<0.0000000001;

ну или

n:=1;
while n<k do n:=n*3;
t:=n=k;

[Sciv]

 
while (k>1) and (k mod 3=0) do begin
  k:=k div 3;
end;
t:=k=1;