数字炸弹

【题目描述】
小 A 有一天坐火车时手机没电了，不巧充电器也坏了，无聊的他只好和邻座小朋友玩起了数字炸弹的游戏。游戏规则很简单：双方依次从 1 开始报数，7 为数字炸弹，报到 7 的倍数或者数字中含有 7 的数就跳过该数直接报下一个，例如其中一段报数序列如下：
……24，25，26，29，30，31，32，33，34，36，38……
玩了几局后，小 A 觉得太简单了，不能体现出自己在智商上的压倒性优势，就和小朋友谈起了改进版规则：设定任意大于 1 的正整数 k 为数字炸弹，报到 k 的倍数或者数字中含有 k 的数就跳过该数直接报下一个，例如 k=3 时，其中一段报数序列如下：
……10，11，14，16，17，19，20，22，25，26，28…… k=110 时，其中一段报数序列如下：
……1097，1098，1099，1111，1112，1113……
就这样，小 A 和小朋友开始了愉快的玩耍。双方约定每轮报到第 n 个数后即停止游戏，要不然数字太大就是欺负小朋友了。你需要输出这第 n 个数是什么。
【输入格式】
第一行为一个正整数 T，表示有 T 组数据，1≤T≤30。
接下来为 T 行，每行两个正整数 k，n，表示炸弹和所求的数的序号。
【输出格式】
输出 T 行，每行输出一个正整数，表示报到的第 n 个数。
【样例输入】
3
2 10
7 30
10 90
【样例输出】
19
38
99
【数据范围】
1≤T≤30，2≤k，n≤10^5
【分析】
就是暴力模拟啦，判断一个数是否是k的倍数以及是否含有k。第二个操作可以用Pas里的str函数方便的实现。

var
  t,i,j,n,k:longint;
    s1,s2:string;
begin
  readln(t);
    while t>0 do begin
      dec(t);
        readln(k,n);
        str(k,s2);
        i:=0;j:=0;
        while j<n do begin
          inc(i);
          if (k<>0)and(i mod k=0) then continue;
            str(i,s1);
            if pos(s2,s1)<>0 then continue;
            inc(j);
        end;
        writeln(i);
    end;
end.