【输出文件】 仅一个数 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