Pascal B:开灯游戏时间限制:1 Sec 内存限制:128 MB有n盏灯,放在一排,从1到n依次顺序编号.有m个人也从1到m依次顺序编号.第1个人(1号)将灯全部关闭;第2个人(2号)将凡是2的倍数的灯打开;第3
来源:学生作业帮助网 编辑:作业帮 时间:2024/11/16 12:43:31
Pascal B:开灯游戏时间限制:1 Sec 内存限制:128 MB有n盏灯,放在一排,从1到n依次顺序编号.有m个人也从1到m依次顺序编号.第1个人(1号)将灯全部关闭;第2个人(2号)将凡是2的倍数的灯打开;第3
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
Pascal B:开灯游戏时间限制:1 Sec 内存限制:128 MB有n盏灯,放在一排,从1到n依次顺序编号.有m个人也从1到m依次顺序编号.第1个人(1号)将灯全部关闭;第2个人(2号)将凡是2的倍数的灯打开;第3
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.