Pascal B:开灯游戏时间限制:1 Sec 内存限制:128 MB有n盏灯,放在一排,从1到n依次顺序编号.有m个人也从1到m依次顺序编号.第1个人(1号)将灯全部关闭;第2个人(2号)将凡是2的倍数的灯打开;第3
来源:学生作业帮助网 编辑:作业帮 时间:2024/07/15 04:47:33
![Pascal B:开灯游戏时间限制:1 Sec 内存限制:128 MB有n盏灯,放在一排,从1到n依次顺序编号.有m个人也从1到m依次顺序编号.第1个人(1号)将灯全部关闭;第2个人(2号)将凡是2的倍数的灯打开;第3](/uploads/image/z/3602659-67-9.jpg?t=Pascal+B%3A%E5%BC%80%E7%81%AF%E6%B8%B8%E6%88%8F%E6%97%B6%E9%97%B4%E9%99%90%E5%88%B6%3A1+Sec+%E5%86%85%E5%AD%98%E9%99%90%E5%88%B6%3A128+MB%E6%9C%89n%E7%9B%8F%E7%81%AF%2C%E6%94%BE%E5%9C%A8%E4%B8%80%E6%8E%92%2C%E4%BB%8E1%E5%88%B0n%E4%BE%9D%E6%AC%A1%E9%A1%BA%E5%BA%8F%E7%BC%96%E5%8F%B7.%E6%9C%89m%E4%B8%AA%E4%BA%BA%E4%B9%9F%E4%BB%8E1%E5%88%B0m%E4%BE%9D%E6%AC%A1%E9%A1%BA%E5%BA%8F%E7%BC%96%E5%8F%B7.%E7%AC%AC1%E4%B8%AA%E4%BA%BA%EF%BC%881%E5%8F%B7%EF%BC%89%E5%B0%86%E7%81%AF%E5%85%A8%E9%83%A8%E5%85%B3%E9%97%AD%EF%BC%9B%E7%AC%AC2%E4%B8%AA%E4%BA%BA%EF%BC%882%E5%8F%B7%EF%BC%89%E5%B0%86%E5%87%A1%E6%98%AF2%E7%9A%84%E5%80%8D%E6%95%B0%E7%9A%84%E7%81%AF%E6%89%93%E5%BC%80%EF%BC%9B%E7%AC%AC3)
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.