枚举算法题目及其代码(2)

【输出文件】 仅一个数 m

【样例输入】pnumber.in 4

【样例输出】pnumber.out 6

【参考程序】

var n,x,t,i:word; begin

assign(input,'pnumber.in');reset(input);

assign(output,'pnumber.out');rewrite(output); readln(n); x:=0; repeat

inc(x);t:=0; for i:=1 to x do

if x mod i=0 then inc(t); until t=n; writeln(x);

close(input);close(output); end.

6、子数整数 【问题描述】

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

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

sub2=020（=20） sub3=207

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

输入由键盘输入，输入仅一行，为正整数K（0

输出到文件，输出文件的每一行为一个满足条件的五位数，要求从小到大输出。不得重复输出或遗漏。如果无解，则输出“No”。 【输入样例】num.in 15

【输出样例】num.out 22555 25555

6

28555 30000

【参考程序】 var k,i:word; no:boolean;

begin

assign(input,'num.in');reset(input);

assign(output,'num.out');rewrite(output); no:=true; readln(k);

for i:=10000 to 30000 do

if((i div 100)mod k=0)and(((i div 10)mod 1000)mod k=0)and((i mod 1000)mod k=0) then begin

writeln(i);

if no then no:=false; end;

if no then writeln('No'); close(input);close(output); end.

7

百度搜索“77cn”或“免费范文网”即可找到本站免费阅读全部范文。收藏本站方便下次阅读，免费范文网，提供经典小说综合文库枚举算法题目及其代码(2)在线全文阅读。