注册 登录  
 加关注
   显示下一条  |  关闭
温馨提示!由于新浪微博认证机制调整,您的新浪微博帐号绑定已过期,请重新绑定!立即重新绑定新浪微博》  |  关闭

一个蒟蒻的代码回收站

最后一次省选求rp

 
 
 

日志

 
 

Poj 3208 题解  

2013-09-22 22:06:00|  分类: 默认分类 |  标签: |举报 |字号 订阅

  下载LOFTER 我的照片书  |

注:这不是我写的。。

题目大意

求第K大的包含666的数字

 

分析:依然是考虑逐位统计,预处理出F[I,J]表示还有i位没有确定,之前有连续J个6的数有多少个,枚举每一位即可。

pascal代码

var f:array[0..3,0..15] of int64; 
    i,j,task:longint; 
    x,s,ans,ss:int64; 
    ok:boolean; 
 
begin 
  readln(task); 
  f[3,0]:=1; 
  for i:=1 to 15 do begin 
    f[3,i]:=10*f[3,i-1]; 
    for j:=0 to 2 do 
      f[j,i]:=f[j+1,i-1]+9*f[0,i-1]; 
  end; 
  for task:=1 to task do begin 
    readln(x);s:=0; 
    ok:=false;ans:=0; 
    for i:=15 downto 0 do begin 
      for j:=0 to 9 do begin 
        if j=6 then ss:=s+1 else ss:=0; 
        if ok then ss:=3; 
        if f[ss,i]<x then dec(x,f[ss,i]) 
                     else break; 
      end; 
      ans:=ans*10+int64(j); 
      s:=ss;ok:=ok or (s=3); 
    end; 
    writeln(ans); 
  end; 
end.

 

原文:http://blog.csdn.net/jasonzhu8/article/details/6025284

转载请注明出处

  评论这张
 
阅读(1)| 评论(0)
推荐 转载

历史上的今天

评论

<#--最新日志,群博日志--> <#--推荐日志--> <#--引用记录--> <#--博主推荐--> <#--随机阅读--> <#--首页推荐--> <#--历史上的今天--> <#--被推荐日志--> <#--上一篇,下一篇--> <#-- 热度 --> <#-- 网易新闻广告 --> <#--右边模块结构--> <#--评论模块结构--> <#--引用模块结构--> <#--博主发起的投票-->
 
 
 
 
 
 
 
 
 
 
 
 
 
 

页脚

网易公司版权所有 ©1997-2017