Pascal B:开灯游戏时间限制:1 Sec 内存限制:128 MB有n盏灯,放在一排,从1到n依次顺序编号.有m个人
来源:学生作业帮 编辑:作业帮 分类:综合作业 时间:2024/05/22 22:07:03
Pascal
B:开灯游戏
时间限制:1 Sec 内存限制:128 MB
有n盏灯,放在一排,从1到n依次顺序编号.有m个人也从1到m依次顺序编号.第1个人(1号)将灯全部关闭;第2个人(2号)将凡是2的倍数的灯打开;第3个人(3号)将凡是3的倍数的灯作相反处理(该灯如是打开的,则将它关闭;如是关闭的,则将它打开).以后的人都和3号一样,将凡是自己编号倍数的灯作相反处理.试计算当第m个人操作后,哪几盏灯是亮的?
输入
从键盘输入n、m的值.(n、m均为正整数,且n>=m)
输出
在同一行输出亮着的灯的编号.(没有灯亮则输出"NO")
样例输入
5 3
样例输出
2 3 4
B:开灯游戏
时间限制:1 Sec 内存限制:128 MB
有n盏灯,放在一排,从1到n依次顺序编号.有m个人也从1到m依次顺序编号.第1个人(1号)将灯全部关闭;第2个人(2号)将凡是2的倍数的灯打开;第3个人(3号)将凡是3的倍数的灯作相反处理(该灯如是打开的,则将它关闭;如是关闭的,则将它打开).以后的人都和3号一样,将凡是自己编号倍数的灯作相反处理.试计算当第m个人操作后,哪几盏灯是亮的?
输入
从键盘输入n、m的值.(n、m均为正整数,且n>=m)
输出
在同一行输出亮着的灯的编号.(没有灯亮则输出"NO")
样例输入
5 3
样例输出
2 3 4
var
\x09n,m:integer;
\x09a:array[1..10000] of boolean;
\x09i,j:integer;
begin
\x09readln(n,m);
\x09for i:=1 to n do a[i]:=true;
\x09for j:=1 to m do
\x09\x09for i:=1 to n do if i mod j=0 then a[i]:=not a[i];
\x09for i:=1 to n do if a[i] then write(i:4);
\x09writeln;
end.
再问: 对不起,这是错的!
\x09n,m:integer;
\x09a:array[1..10000] of boolean;
\x09i,j:integer;
begin
\x09readln(n,m);
\x09for i:=1 to n do a[i]:=true;
\x09for j:=1 to m do
\x09\x09for i:=1 to n do if i mod j=0 then a[i]:=not a[i];
\x09for i:=1 to n do if a[i] then write(i:4);
\x09writeln;
end.
再问: 对不起,这是错的!
Pascal B:开灯游戏时间限制:1 Sec 内存限制:128 MB有n盏灯,放在一排,从1到n依次顺序编号.有m个人
pascal求大神1199:最大与最小时间限制:1 Sec 内存限制:128 MB提交:179 解决:91[提交][状态
pascal亲密数对亲密数对时间限制:1秒 内存限制:64 MB试题描述键盘输入N,N在2至2000之内,求2至N中的亲
pascal题目三题第一题:WZK吃小鸡腿时间限制: 1 Sec 内存限制:
D:ADA Ⅱ型数时间限制:1 Sec 内存限制:128 MB提交:246 解决:22[提交][状态][讨论版]ADAⅡ
有N个人围成一个圈顺序编号,从第一个人开始报数(从1到M),凡报到M的人退出圈子,
- 开关灯来源 元培-From Whf 描述 假设有N盏灯(N为不大于5000的正整数),从1到N按顺序依次编号,有M个
pascal 有N列编号为1,2,3...N的火车,依次排列于入口处,在从入口到出口的过程中,火车可以在暂放处停留.问,
C语言:有n个人围成一圈,按顺序从1到n编号.从第一个人开始报数,报数3的人退出圈子
C语言 有n个人围成一圈,按顺序从1到n编号.从第一个人开始报数,报数3的人退出圈子
有n个人围成一圈,顺序排号.从第一个人开始报数(从1到3报数),凡报到3的人退出(pascal
原始的Joseph问题的描述如下:有n个人围坐在一个圆桌周围,把这n个人依次编号为1,……,n.从编号是1 的人开始报数