NOIP提高组初赛试题汇编(2002-2009)(3)

NOIP提高组初赛试题汇编(2002-2009)noip考试者必备我也是马上要考了!!!

ch1:=ch[jw];ch[jw]:=ch[jb];ch[jb]:=ch1;jw:=jw-1;jb:=jb-1;end

end;

fori:=1tondowrite(ch[1]);writeln;

end.

输入：输入：10

RBRBWWRBBR

输出：输出：

2．programGxp2;

vari,j,s,sp1:integer;

p:boolean;a:array[1..10]ofinteger;begin

sp1:=1;a[1]:=2;j:=2;whilesp1<10dobegin

j:=j+1;p:=true;fori:=2toj-1do

if(jmodi=0)thenp:=false;ifpthenbegin

sp1:=sp1+1;a[sp1]:=j;end;

end;

j:=2;p:=true;whilepdobegins:=1;

fori:=1tojdos:=s*a[i];s:=s+1;

fori:=2tos-1do

ifsmodi=0thenp:=false;j:=j+1;end;

writeln(s);writeln;end.

输出：输出：

3．ProgramGxp2

Vard1,d2,X,Min:real;begin

Min:=10000;X:=3;whileX<15dobegin

d1:=sqrt(9+(X-3)*(X-3));d2:=sqrt(36+(15-X)*(15-X));