数组习题及解答.docVIP

1、超级素数：一个n位超级素数是指一个n位正整数，它的前1位，前2位, . . . , 前n位均为素数，例如，7331是个4位超级素数，因为7，73，733，7331均为素数。由键盘输入n (n9), 然后输出全部的n位超级素数。(用过程或函数实现) uses crt; var i,j,t,m,n:longint; s,s1:string; f:boolean; function prime(x:longint):boolean; var i:longint; begin if (x=1) or (x=0) then exit(false); if (x=2) or (x=3) then exit(true); for i:=2 to trunc(sqrt(x)) do if x mod i =0 then exit(false); exit(true); end; begin clrscr; f:=false; readln(n); for i:=trunc(exp((n-1)*ln(10))) to trunc((exp(n*ln(10))-1)) do begin m:=0; for j:=1 to n do begin str(i,s1); s:=copy(s1,1,j); val(s,t); if prime(t) then inc(m); end; if m=n then begin writeln(i);f:=true;end; end; if (mn) and not(f) then writeln(No); end. 4、问题描述：一个整数的整数字串是由该整数的连续数位的数字构成。例如：6158的子串包括6,1,5,8,61,15,58,615,158,6158 任务：找出最大的质数子串 输入：整数N（0=N=1000000000) 输出：N的最大质数子串，若所有子串都是非质数，则输出“No primes” 输入样例1: 2319 输出样例1: 31 输入样例2：6804 输出样例2：No primes var i,j,k,l,m:longint; n,s:string; max,t:longint; func tion prime(x:longint):boolean; var i:longint; begin if (x=1) or (x=0) then exit(false); if (x=2) or (x=3) then exit(true); for i:=2 to trunc(sqrt(x)) do if x mod i =0 then exit(false); exit(true); end; begin readln(n); l:=length(n); max:=-1; for i:=1 to l do for j:=1 to l-i+1 do begin s:=copy(n,j,i); val(s,t,k); if tmax then if prime(t) then max:=t; end; if max=-1 then writeln(No primes) else writeln(max); end. 5、对于一个五位数a1a2a3a4a5，可将其拆分为三个子数： sub1=a1a2a3 sub2=a2a3a4 sub3=a3a4a5 例如，五位数20207可以拆分成 sub1=202 sub2=020（=20） sub3=207 现在给定一个正整数K，要求你编程求出10000到30000之间所有满足下述条件的五位数，条件是这些五位数的三个子数sub1，sub2，sub3都可被K整除。 输入 输入由键盘输入，输入仅一行，为正整数K（0K1000）。 输出 输出到文件，输出文件的每 一行为一个满足条件的五位数，要求从小到大输出。不得重复输出或遗漏。如果无解，则输出“No”。 样例 num.in 15 num.out 22555 25555 28555 30000 program test; var n,i,a1,a2,a3,a4,a5,sub1,sub2,sub3:longint; f:boolean; procedure init; begin assign(input,c:\fact.in);reset(input); assign(output,c:\fa ct.out);rewrite(output); readln(n); end; functi