题目描述
远古的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.
