jxxx3341 2017-10-12 08: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.