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

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

u:array[0..2]ofinteger=(1,-3,2);v:array[0..1]ofinteger=(-2,3);var

i,n,sum:integer;

functiong(n:integer):integer;vari,sum:integer;begin

sum:=0;

fori:=1tondoinc(sum,u[imod3]*i);g:=sum;end;begin

sum:=0;read(n);

fori:=1tondoinc(sum,v[imod2]*g(i));writeln(sum);end.输入：103

输出：。

五．完善程序(前5空，每空2分，后6空，每空3分，共28分)

1．Joseph题目描述:

原始的Joseph问题的描述如下：有n个人围坐在一个圆桌周围，把这n个人依次编号为1，…，n。从编号是1的人开始报数，数到第m个人出列，然后从出列的下一个人重新开始报数，数到第m个人又出列，…，如此反复直到所有的人全部出列为止。比如当n=6，m=5的时候，出列的顺序依次是5，4，6，2，3，1。

现在的问题是：假设有k个好人和k个坏人。好人的编号的1到k，坏人的编号是k+1到2k。我们希望求出m的最小值，使得最先出列的k个人都是坏人。输入:

仅有的一个数字是k（0<k<14）。输出:

使得最先出列的k个人都是坏人的m的最小值。输入样例:

4

输出样例:

30程序：

programprogram1;var

i,k,m,start:longint;find:boolean;

functioncheck(remain:integer):boolean;varresult:integer;