消失的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
 i,n,m1,m2,j,k,l,ans:longint;
 a:array[1..1000] of longint;
function iff(x:longint):boolean;
 var
  s:string;
  i:longint;
  begin
   str(x,s);
   for i:=1 to length(s) do
    if s[i]='7' then exit(true);
   exit(false);
  end;


begin
 readln(n);
 for i:=1 to n do
  readln(a[i]);
 for j:=1 to n do
 begin
  ans:=a[j];
  for i:=1 to a[j] do
  begin
   if iff(i) then dec(ans);
  end;
  writeln(ans);
 end;
end.