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

题目

对于一个五位数 a1a2a3a4a5，可将其拆分为三个子数： sub1=a1a2a3

sub2=a2a3a4

sub3=a3a4a5

例如，五位数 20207 可以拆分成 sub1=202

sub2=020（=20） sub3=207

现在给定一个正整数 K，要求你编程求出 10000（包括 10000）到 30000（包括 30000）之间所有满足下述条件的五位数，条件是这些五位数的三个子数 sub1，sub2，sub3 都可被 K 整除。

题解

一道极水的模拟题
每个数都判断是否符合题意
时间复杂度（20000）

代码

var
  k,i,a,b,c,ans:longint;
begin
  readln(k);
  for i:=10000 to 30000 do
    begin
      a:=i div 100;
      b:=(i div 10) mod 1000;
      c:=i mod 1000;
      if (a mod k=0)and(b mod k=0)and(c mod k=0) then
        begin writeln(i);inc(ans);end;
    end;
  if ans=0 then writeln('-1');
end.