今天有些进步,感谢!! — 编程爱好者社区

主题：今天有些进步,感谢!!

chenzhong [专家分：250] 发布于 2005-08-29 19:45:00

今天作业有些进步,都要感谢各位的帮忙.不过还是有一些问题,我已学会自己参透,欢迎大家点播[em6]
有N只猴子选大王，选举的办法：排成一排，从头到尾报数，报道3的倍数（3，6，9...）的退出，知道全报完，然后又从头开始，同样3的倍数退出。第3遍又是从头到尾进行，第4次又从头到尾，最剩下2只，以排在后面（按报数的顺序）的那只为大王。编程找出猴王的位置（N从键盘输入）
将M*N的矩阵转换成N*M的矩阵输出.

1,2,4,7......是二阶等差级数,因为它们后项减前项的差均组成等差级数1,2,3,......找出5组每组4个相邻的素数,其中每一组都构成二阶等差级数的4个相邻的项.

本帖地址： http://bbs.pfan.cn/post/101436.html

回复列表（共3个回复）

沙发

绿步甲 [专家分：1610] 发布于 2005-08-29 19:57:00

猴子这道题我以前做过:
var
i,m,k,j:integer;a:array [1..100]of 0..1;ok:boolean;
begin
read(m);for i:=1 to m do
a[i]:=1;k:=0;
repeat ok:=false;
for i:=1 to m do
if a[i]=1
then
begin
k:=k+1;j:=i;
if k mod 3=0
then
begin
a[i]:=0;
ok:=true;k:=0;
end
end;
until not(ok);
write (j)
end.

表忘了加分~~~

板凳

yukangcool [专家分：460] 发布于 2005-08-29 21:52:00

支持楼上，建议清空的时候用函数fillchar

3 楼

林记 [专家分：1680] 发布于 2005-08-30 09:51:00

猴子这导题
还用算吗,答案肯定是2~~~~

还有最后一题,应该是不可能有连续4个构成素数的吧,
其通项是n*(n-1)/2+1,自己验证一下吧

我来回复

您尚未登录，请登录后再回复。点此登录或注册

主题：今天有些进步,感谢!!

回复列表（共3个回复）

我来回复

程序员工具箱 new

代码片段

本版新帖

主题：今天有些进步,感谢!!

回复列表 （共3个回复）

我来回复

程序员工具箱 new

代码片段

本版新帖

回复列表（共3个回复）