116问答网 > 一道pascal编程问题，挺简单的一道枚举题目，但是就是内存超限了，还有时间超限了，因为数据范围太大了

一道pascal编程问题，挺简单的一道枚举题目，但是就是内存超限了，还有时间超限了，因为数据范围太大了

2025-04-02 19:25:58

推荐回答（1个）

回答1：

var
i,j,n,k,l,s,x:longint;
begin
readln(n);
j:=2;
l:=n div 3;
while l>1 do
begin
if l mod 3=2 then l:=l div 3+1
else
l:=l div 3;
k:=k+1;
end;
s:=1;
x:=2;
for i:=1 to k do
begin
s:=s*3;
x:=x+s;
end;
writeln(k+2,' ',x);
end.