讨论 / PASCAL 题解
jxxx3341 2017-10-12 23:38:11
点我顶贴 收藏 删除
测试点1 Accepted / 0ms / 256kB

测试点2 Accepted / 0ms / 256kB

测试点3 Accepted / 0ms / 256kB

测试点4 Accepted / 0ms / 256kB

测试点5 Accepted / 0ms / 256kB

测试点6 Accepted / 0ms / 256kB

测试点7 Accepted / 0ms / 256kB

测试点8 Accepted / 0ms / 256kB

测试点9 Accepted / 0ms / 256kB

测试点10 Accepted / 0ms / 256kB

var

now,n:int64;

begin

read(n);

now:=2;

while true do

begin

now:=now*9 -8;

if now>n then begin write('181818181818'); halt; end;

now:=now*2 -1;

if now>n then begin write('ZBT'); halt; end;

end;

end.

查看更多回复
提交回复