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