2016東莞市特長生考試 子數整數

2021-07-30 06:32:06 字數 833 閱讀 5234

對於乙個五位數,可將其拆分為三個數字:sub1=a1a2a3,sub2=a2a3a4,sub3=a3a4a5 

現在給定乙個正整數 k,要求你程式設計求出 10000(包括 10000)到 30000(包括 30000)之間所有滿足下述條件的五位數,條件是這些五位數的三個子數 sub1,sub2,sub3 都可被 k 整除。

15
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

to30000

dobegin

str(i,a);

l:=1;p:=true;

for j:=1to3

dobegin

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;

ifnot s then writeln(-1);

end.

2016東莞市特長生考試 遊戲問題

2016東莞市特長生考試 遊戲問題 description 五四 青年節到了,某學校要舉行乙個遊園活動,其中有乙個這樣的遊戲 n 個同學 編號從 0 到 n 1 圍坐一圈,按照順時針方向給 n 個位置編號,從0 到 n 1。最初,第 0 號同學在第 0 號位置,第 1 號同學在第 1 號位置,依此類...

2640 2016東莞市特長生考試 子數整數

對於乙個五位數 a1a2a3a4a5,可將其拆分為三個子數 sub1 a1a2a3 sub2 a2a3a4 sub3 a3a4a5 例如,五位數 20207 可以拆分成 sub1 202 sub2 020 20 sub3 207 現在給定乙個正整數 k,要求你程式設計求出 10000 包括 1000...

2016東莞市特長生考試 村莊重建

2016東莞市特長生考試 村莊重建 time limit 10000ms memory limit 256000k total submit 3 accepted 1 case time limit 1000ms description b 地區在 過後,所有村莊都造成了一定的損毀,而這場 卻沒對公...