文档介绍：(共 2 题,每题 5 分,共计 10 分)
2006 个人分成若干不相交的子集,每个子集至少有 3 个人,并且:
(1)在每个子集中,没有人认识该子集的所有人。
(2)同一子集的任何 3 个人中,至少有 2 个人互不认识。
(3)对同一子集中任何 2 个不相识的人,在该子集中恰好只有 1 个人认识这两个人。则满足上述条件的子集最多能有                    个?
11/18/2017
(共 2 题,每题 5 分,共计 10 分)
2006 个人分成若干不相交的子集,每个子集至少有 3 个人,并且:
(1)在每个子集中,没有人认识该子集的所有人。
(2)同一子集的任何 3 个人中,至少有 2 个人互不认识。
(3)对同一子集中任何 2 个不相识的人,在该子集中恰好只有 1 个人认识这两个人。则满足上述条件的子集最多能有                     个?
2006÷5=401
11/18/2017
(共 2 题,每题 5 分,共计 10 分)
,过每个分点分别做另外两边的平行线,得到若干个正三角形,我们称为小三角形。正三角形的一条通路是一条连续的折线,起点是最上面的一个小三角形,终点是最下面一行位于中间的小三角形。在通路中,只允许由一个小三角形走到另一个与其有公共边的且位于同一行或下一行的小三角形,并且每个小三角形不能经过两次或两次以上(图中是n=5时一条通路的例子)。设n=10,则该正三角形的不同的通路的总数为。
11/18/2017
(共 2 题,每题 5 分,共计 10 分)
n=5时,方案有
1×2×3×4=4!
n=10时,方案有
1×2×…×9=9!
11/18/2017
(共 4 题,每题 8 分)
Program ex401;
  var u,v:array[0..3] of integer; i,x,y:integer;
 begin
  x:=10; y:=10;
 for i:=0 to 3 do read(u[i]);
v[0]:=(u[0]+u[1]+u[2]+u[3]) div 7;
v[1]:=u[0] div ((u[1]-u[2]) div u[3]);
v[2]:=u[0]*u[1] div u[2]*u[3];
v[3]:=v[0]*v[1];
x:=(v[0]+v[1]+2)-u[(v[3]+3) mod 4];
  if (x>10) then  y:=y+(v[2]*100-v[3]) div (u[u[0] mod 3]*5)
else  y:=y+20+(v[2]*100-v[3]) div (u[v[0] mod 3]*5);
writeln (x,',',y);
end.
输入:9 3 9 4
输出:
-13,57
11/18/2017
(共 4 题,每题 8 分)
6 div 4 = 1 6 mod 4 = 2
-6 div 4 = -1 -6 mod 4 = -2
6 div -4 = -1 6 mod -4 = 2
-6 div -4 = 1 -6 mod -4 = -2
11/18/2017
(共 4 题,每题 8 分)
Program ex402;
const m:array[0..4] of integer=(2,3,5,7,13);
  var i,j:integer; t: longint;
begin
for i:=0 to 4 do
begin
t:=1;
  for j:=1 to m[i]-1 do  t:=t*2;
  t:=(t*2-1)*t;
write (t,' ');
end;
writeln;
 end.
输出:
6 28 496 8128 33550336
11/18/2017
(共 4 题,每题 8 分)
Program ex403; 
Const  NN=7;
Type Arr1=array[0..30] of char;
  var s:arr1; k,p:integer;
  function fun1(s:arr1; a:char;n:integer):integer;
  var j:integer;
begin
j:=n;
 while (a<s[j]) and (j>0) do dec(j);
 fun1:=j;
 end;
11/18/2017
(共 4 题,每题 8 分)
Func