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