2004年信息学奥赛NOIP普及组
初赛
更早
2022-11-19 18:43:13
98次
一、单选题
的结果是（ ）
二、简答题
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
程序：
program progaram1;
var
i,k,m,start：longint;
find：boolean;
function check（remain:integer）：boolean;
var result：integer;
begin
result：=____(1)____ mod remain;
if ____(2)____ then begin
start：=result; check：=true;
end
else check：=false;
end;
begin
find：=false;
read(k);
m：=k;
while ____(3)____ do begin
find：=true; start；=0；
for i：=0 to k-1 do
if (not check(____(4)____)) then begin
find：=false; break;
end;
inc(m);
end;
writeln(____(5)____);
end.
【知识点】 信息学NOIP普及组
program program3;
var
u:array[0..3] of integer;
a,b,c,x,y,z:integer;
begin
read(u[0],u[1],u[2],u[3]);
a:=u[0]+u[1]+u[2]+u[3]-5;
b:=u[0]*(u[1]-u[2] div u[3]+8);
c:=u[0]*u[1] div u[2] * u[3];
x:=(a+b+2)*3-u[(c+3) mod 4];
y:=(c*100-13) div a div (u[b mod 3]*5);
if ((x+y) mod 2=0) then z:=(a+b+c+x+y) div 2;
z:=(a+b+c-x-y)*2;
writeln(x+y-z);
read(a);
end.
输出：_____________________。
【知识点】 信息学NOIP普及组
program program4 ;
var c:array[1..2] of string[200];
s:array[1..10] of integer;
m,n,i:integer ;
procedure numara;
var cod:boolean;
i,j,nr:integer;
begin
for j:=1 to n do begin
nr:=0;cod:=true;
for i:=1 to m do
if c[i,j]='1' then begin
if not cod then begin
cod:=true;inc(s[nr]);nr:=0;
end
end
else begin
if cod then begin
nr:=1;cod:=false ;
end
else inc(nr);
end;
if not cod then inc(s[nr]);
end;
end;
begin
readln(m,n);
for i:=1 to m do readln(c[i]);
numara;
for i:=1 to m do
if s[i] <>0 then write(i,' ',s[i],' ');
read(i);
end.
输出：_____________________。
【知识点】 信息学NOIP普及组
三角形内切圆的面积
题目描述：给出三角形三边的边长，求此三角形内切圆的面积。
输入：三个正实数a、b、c（满足三角形三边关系），表示三角形三边边长。
输出：三角形内切圆的面积，结果四舍五入到小数点后2位
输入样例： 3 4 5
输出样例： 3.14
程序：①②③④⑤
Program program1;
Var
a,b,c,r,s,t:real;
begin
read(a,b,c);
s :=( ① )/2;
t:= ② (s*(s-a)*(s-b)*(s-c));
r:=t/s;
writeln(3.1415927 * r * ③ :0: ④ ;
END.
【知识点】 信息学NOIP普及组
