一个宾馆里有100个房间编号为1~100，也有100个服务员，1号服务员把所有门都开了，2号服务员把编号为2的倍数的房间门关了，3号服务员把编号为3的倍数的房间门相反处理（开的关，关的开）以此类推，到第100名服务员结束

然后呢

题目不全啊

设为布尔型，设3个未知数

有个题叫“模拟开关”只不过把开关房间门变成了开关灯，其他一点区别都没有

var
a,b,c:integer；
s:array[1..100]of integer；
begin
for a:=1 to 100 do
s[a]:=-1;
for a:=1 to 100 do
for b:=1 to 100 do
if （b mod a）=0 then s[b]:=-s[b];
｛执行完后就有了所有服务员都干完活后的门开关状况，1为开，-1为关｝
for a:=1 to 100 do
write(s[a],' ');
end.

手机上一个一个字打的，如果有错请修改一下

var i,j:integer;
a:array[1..100]of boolean;
begin
for i:=1to 100do
a[i]:=true;
for i:=2to 100 do(人）;
for j:=1to 100 do(门）;
if j mod i=0then a[j]:=not (a[j]);
for j:=1to 100 do
if a[j]=true then write(j:5);
end.
中间如有错，
lz
自己改一改

数论或模拟，楼主随便