2016东莞市特长生考试 子数整数

Description

对于一个五位数，可将其拆分为三个数字：sub1=a1a2a3,sub2=a2a3a4，sub3=a3a4a5 
现在给定一个正整数 K，要求你编程求出 10000（包括 10000）到 30000（包括 30000）之间所有满足下述条件的五位数，条件是这些五位数的三个子数 sub1，sub2，sub3 都可被 K 整除。

Sample Input

15

Sample Output

22555
25555
28555
30000

思路

一共也才20000*3个数字，用最暴力的方法逐个相除。

var
  a,b:string;
  k,i,j,l,t:longint;
  p,s:boolean;
begin
  readln(k);
  for i:=10000 to 30000 do
    begin
      str(i,a);
      l:=1;p:=true;
      for j:=1 to 3 do
        begin
          b:=copy(a,l,3);
          inc(l);
          val(b,t);
          if t mod k<>0 then
            begin p:=false;break;end;
        end;
      if p then begin writeln(i);s:=true;end;
    end;
  if not s then writeln(-1);
end.