noip初赛阅读程序解题方法精编版.pptVIP

分析 前半段求10个素数依次存于数组a中2 3 5 7 11 13 17 19 23 29 后半段求最小的j，使得前j个素数之积+1为合数j=2 2*3+1=7j=3 2*3*5+1=31j=4 2*3*5*7+1=211j=5 2*3*5*7*11+1=2311j=6 2*3*5*7*11*13+1=30031 小技巧：s为integer类型，预示着结果不会超过32767 program ex2; var i,j,n:longint; b:array [0..31] of 0..1; begin n=1999; i:=0; while n0 do begin b[i]:=n mod 2; i:=i+1; n:=n div 2 end; for j:=i-1 downto 0 do write(b[j]); end. 很明显，是把十进制整数转换成二进制数，所以输出11111001111 var x,x2:longint; procedure digit(n,m:longint);? var n2:integer;? begin? if(m0) then begin n2:=n mod 10;? write(n2