20xxnoip初赛普及组(编辑修改稿)

20xxnoip初赛普及组(编辑修改稿)内容摘要：

{(12),(34)}， {(13),(24)}， {(14),(23)}。 当n=6， r=3时， S(6,3)=______________。 （提示：先固定一个数，对于其余的 5个数考虑 S(5,3)与 S(5,2)，再分这两种情况对原固定的数进行分析。 ） （最短路线）某城市的街道是一个很规整的矩形网络（见下图） ，有 7条南北向的纵街， 5条东西向的横街。 现要从西南角的 A走到东北角的 B，最短的走法共有多少种。 ___________ B A 三、阅读程序写结果（共 4题，每题 8分，共计 32分。 ） program j301。 var i,a,b,c,x,y:integer。 p:array[0..4] of integer。 begin y:=20。 for i:=0 to 4 do read(p[i])。 readln。 a:=(p[0]+p[1])+(p[2]+p[3]+p[4]) div 7。 b:=p[0]+p[1] div ((p[2]+p[3]) div p[4])。 c:=p[0]*p[1] div p[2]。 x:=a+bp[(p[3]+3) mod 4]。 if (x10) then y:=y+(b*100a) div (p[p[4] mod 3]*5) else y:=y+20+(b*100c) div (p[p[4] mod 3]*5)。 writeln(x,39。 ,39。 ,y)。 end. {注：本例中，给定的输入数据可以避免分母为 0或数组元素下表 越界。 } 输入： 6 6 5 5 3 输出： ______________________ program j302。 var a,b:integer。 var x,y:^integer。 procedure fun(a,b:integer)。 var k:integer。 begin k:=a。 a:=b。 b:=k。 end。 begin a:=3。 b:=6。 x:=@a。 y:=@b。 fun(x^,y^)。 writeln(a,39。 ,39。 ,b)。 end. 输出： _______________________________ program j303。 var a1:array[1..50] of integer。 var i,j,t,t2,n,n2:integer。 begin n:=50。 for i:=1 to n do a1[i]:=0。 n2:=round(sqrt(n))。 for i:=2 to n2 do if (a1[i]=0) then begin t2:=n div i。 for j:=2 to t2 do a1[i*j]:=1。 end。 t:=0。 for i:=2 to n do if (a1[i]=0) then begin write(i:4)。 inc(t)。 if (t mod 10=0) then writeln。 end。 writeln。 end. 输出： __________________________________________。