题目描述
远古的Pascal人也使用阿拉伯数字来进行计数,但是他们又不喜欢使用7,因为他们认为7是一个不吉祥的数字,所以Pascal数字8其实表示的是自然数中的7,18表示的是自然数中的16。下面计算一下,在正整数n范围以内包含有多少个Pascal数字。
输入输出格式
输入格式:
第一行为正整数t,接下来t行,每行一个正整数n(≤2^32-1)。
输入的是Pascal数字
输出格式:
对于每个正整数n,输出n以内的Pascal数的个数。
输入输出样例
输入样例#1:
2
10
20
输出样例#1:
9
18
var
ans:array [1..1000] of longint;
s1:string;
i,j,n,s,t,len,k:longint;
begin
read(n);
for i:=1 to n do
begin
inc(k);
read(s);
t:=s div 10;
ans[k]:=s-t;
str(s,s1);
len:=length(s1);
if s1[len]>='7' then ans[k]:=ans[k]-1;
s1:='';
end;
for i:=1 to k do
writeln(ans[i]);
end.