程序阅读程序阅读题的特点程序阅读题的两种分析法举几个例子说明Answervara,b:integer;beginread(a);b:=(a*(a*a))+1;ifbmod3=0thenb:=bdiv3;ifbmod5=0thenb:=bdiv5;ifbmod7=0thenb:=bdiv7;ifbmod9=0thenb:=bdiv9;ifbmod11=0thenb:=bdiv11;ifbmod13=0thenb:=bdiv13;ifbmod15=0thenb:=bdiv15;writeln((100*a-b)div2);end.输入：10输出：AnswerprogramProgram2；vara，t：string；i，j：integer；begina：=‘morning’；j：=1；fori：=2to7doif(a[j]<a[i])thenj：=i；j：=j-1；fori：=1tojdowrite(a[i])；end．输出：AnswerProgramex301;varu:array[0..3]ofinteger;i,a,b,x,y:integer;beginy:=10;fori:=0to3doread(u[i]);a:=(u[0]+u[1]+u[2]+u[3])div7;b:=u[0]div((u[1]-u[2])divu[3]);x:=(u[0]+a+2)-u[(u[3]+3)mod4];if(x>10)theny:=y+(b*100-u[3])div(u[u[0]mod3]*5)elsey:=y+20+(b*100-u[3])div(u[u[0]mod3]*5);writeln(x,',',y);end.{*注：本例中，给定的输入数据可以避免分母为0或下标越界。}输入：9394输出：_______________AnswerProgramex303;constNN=7;typeArr1=array[0..30]ofchar;vars:arr1;k,p:integer;functionfun(s:arr1;a:char;n:integer):integer;varj:integer;beginj:=n;while(a<s[j])and(j>0)dodec(j);fun:=j;end;beginfork:=1toNNdos[k]:=chr(ord('A')+2*k+1);k:=fun(s,'M',NN);writeln(k);end.输出：_____________AnswerProgramex302;constm:array[0..4]ofinteger=(2,3,5,7,13);vari,j:integer;t:longint;beginfori:=0to4dobegint:=1;forj:=1tom[i]-1dot:=t*2;t:=(t*2-1)*t;write(t,'');end;writeln;end.输出:____________________Answerprgoramchu7_4；varn，k，i：integer；a：array[1..40]ofinteger；procedurefind(x：integer)；vars，i1，j1：integer；p：boolean；begini1:=0；p:=true；whilepdobegini1:=i1+1；s:=0；forj1:=1tondoifa[j1]>a[i1]thens:=s+1；if(s=x-1)thenbeginwriteln(a[i1])；p:=falseend；endend；beginreadln(n，k)；fori:=1tondoread(a[i])；find(k)；find(n-k)；end.输入：1041234565678779012013输出：Answerprogramex304;varx,x2:longint;proceduredigit(n,m:longint);varn2:integer;beginif(m>0)thenbeginn2:=nmod10;write(n2:2);if(m>1)thendigit(ndiv10,mdiv10);n2:=nmod10;write(n2:2);end;end;beginwriteln('Inputanumber:');readln(x);x2:=1;