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

Kesiruto

于 2017-04-08 16:53:20 发布

阅读量931

点赞数 1

分类专栏：枚举

本文链接：https://blog.csdn.net/qq_34593871/article/details/69680914

版权

枚举专栏收录该内容

38 篇文章 0 订阅

订阅专栏

Description

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

Sample Input

Sample Output

思路

一共也才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.