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.