呼.

该题果然是单纯的贪心,

-------------------------------------------------

再次膜拜lonelycorn神牛,

-------------------------------------------------

引用神牛的话:

p1和p2玩，p1先手，那么p1想尽快取得胜利，p2想尽慢（或者不）让p1胜利，由此得到贪心。

-------------------------------------------------

错错

绝对是数学问题

胜(1,9]

负(9,18]

胜(18,162]

负(162,324]

......

胜(18^n,9*18^n]

负(9*18^n,18^(n+1)]

const

s=2；

b=9；

var

a,i:shortint；

n,now,pd:int64；

begin

readln(n)；

pd:=(9-(n mod 9)+n) div 9；

now:=1；

a:=0；

repeat

if b*now>=n then

begin

case a of

0:writeln(181818181818)；

1:writeln(ZBT)；

end；

halt；

end；

if a=0 then

begin

i:=9；

while (now*i>=pd) and (i>2) do dec(i)；

now:=now*i

end

else now:=now*s；

a:=1-a；

until now>n；

end.

=================================================

状态题目:课间十分钟

状态编号: [查看该题]

状态: Accepted

测评机： Xeost[5]

得分： 100分

提交日期： 2008-7-27 0:53:00

有效耗时： 该状态没有记录

测试结果1: 测试结果正确

测试结果2: 测试结果正确

测试结果3: 测试结果正确

测试结果4: 测试结果正确

测试结果5: 测试结果正确

测试结果6: 测试结果正确

测试结果7: 测试结果正确

测试结果8: 测试结果正确

测试结果9: 测试结果正确

测试结果10: 测试结果正确

=================================================

这个 理解方式不同.....但写出来的代码差不多

问一下vinence高手，pd是干什么的？

受大牛赐教得解……

var n,s,t,f:qword；

begin

readln(n)；

s:=1；

t:=9；

if n=1 then begin writeln(’181818181818’)；halt；end；

while t<n do begin t:=t*18；s:=t div 9+1；end；

if s<n then writeln(’181818181818’)

else writeln(’ZBT’)；

end.