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