失踪的7

题目描述

远古的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.