jzoj 1145. 简单游戏(easygame)

1145. 简单游戏(easygame)  (File IO): input:easygame.in output:easygame.out

时间限制:  1000 ms  空间限制:  262144 KB  具体限制   Goto ProblemSet

题目描述

一天，小R准备找小h去游泳，当他找到小h时，发现小h正在痛苦地写着一列数，1，2，3，…n,于是就问小h痛苦的原因，小h告诉他，现在他要算1..n这些数里面，1出现的次数是多少，如n=11的时候，有1,10,11共出现4次1，现在给出n,你能快速给出答案么？

输入

一行，就是n,(1<=n<=maxlongint)

输出

一个整数，表示1..n中1出现的次数。

样例输入

11

样例输出

4

数据范围限制

找规律，分别看看出现在每一位上的1有什么规律

代码如下：

 

const w:array[1..11]of longint=(1,10,100,1000,10000,100000,1000000,10000000,100000000,1000000000,10000000000); p:array[1..11]of longint=(0,1,10,100,1000,10000,100000,1000000,10000000,100000000,1000000000); var a:array[1..11]of longint; n,k:longint; sum:int64; procedure init; var s:string; i:longint; begin readln(s); k:=length(s); for i:=1 to k do val(s[i],a[k-i+1]); val(s,n); end; procedure main; var i,j:longint; begin for i:=1 to k do sum:=sum+((n div w[i])*p[i]); for i:=2 to k do if a[i]>=2 then sum:=sum+p[i+1] else if a[i]=1 then sum:=sum+((n mod w[k])+1); if a[1]>=1 then write(sum+1) else write(sum); end; begin assign(input,'easygame.in'); reset(input); assign(output,'easygame.out'); rewrite(output); init; main; close(input); close(output); end.