noip2006初赛试题及答案

（普及组Pascal语言D.freepascal不一定是Pascal）B.not((a=0)and(b=0))not(a=0andb=0)D.(a<>0)andA.1,2,3,4,5C.1,4,3,7,6B.1,2,4,5,7D.1,4,3,7,2A.(¬AB.¬((A¬AA.a,b,c,e,dC.a,e,c,b,dB.b,c,a,e,dD.d,c,e,b,aA.321465C.213546B.321546D.231465u:array[0..3]ofinteger;i,a,b,x,y:integer;fori:=0to3doread(u[i]);a:=(u[0]+u[1]+u[2]+u[3])7;b:=u[0]div((u[1]-u[2])divu[3]);x:=(u[0]+a+2)-u[(u[3]+3)4];if(x>10)theny:=y+(b*100-u[3])div(u[u[0]mod3]*5)y:=y+20+(b*100-u[3])div(u[u[0]mod3]*5);writeln(x,',',y);}输出：_______________m:array[0..4]ofinteger=(2,3,5,7,13);i,j:integer;t:longint;fori:=0to4dot:=1;forj:=1tom[i]-1dot:=t*2;t:=(t*2-1)*t;write(t,'');writeln;Arr1=array[0..30]ofchar;s:arr1;k,p:integer;Functionfun(s:arr1;a:char;n:integer):integer;j:integer;j:=n;while(a<s[j])and(j>0)dodec(j);fun:=j;s[k]:=chr(ord('A')+2*k+1);k:=fun(s,'M',NN);writeln(k);输出：_____________x,x2:longint;proceduredigit(n,m:longint);varn2:integer;if(m>0)thenwrite(n2:2);if(m>1)thendigit(ndiv10,mdiv10);write(n2:2);writeln('Inputanumber:');readln(x);while(x2<x)dox2:=x2*10;x2:=x2div10;digit(x,x2);writeln;输入：9734526(i,n,k:integer;a:array[1..10]ofinteger;}perm(k:integer);varj,p,t:integer;ifinc(count);forp:=1tokdowrite(a[p]:1);write('');if(exit;)thenwriteln;forj:=ktondot:=a[k];a[k]:=a[j];a[j]:=t;t:=a[k];;;writeln('Entryn:');read(n);count:=0;fori:=1tondoa[i]:=i;;S，使P×S=由于13*8547=111111，则应输出（1）8547，例2：输入p=147，则输出结果应为（1）42个p,a,b,c,t,n:longint;while(true)dowriteln('Inputreadln(p);p,thelastdigitis1or3or7or9:');}普及组Pascal10a:=0;n:=0;a:=a*10+1;inc(n);t:=0;b:=adivp;write(b:1);inc(t);if(untilc<=0;⑦)thenwriteln;⑧;a:=inc(n);dec(n);writeln;writeln('n=',⑩);普及组Pascal1111.C12.D1．4次(1分)，1.10，10（对1个数给4分，无逗号扣1分