失踪的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.