帮帮忙，用pascal解题：宾馆里有100个房间，从1～100编号，第1个服务员把所有的房间门都打开，第2个服务员把所有

var n,i:longint;
a:array[1..100]of boolean;
begin
readln(n);
for i:=1 to n do
if (100 mod i=0)and a[i] then a[i]:=false
else if (100 mod i=0)and(not a[i])rhen a[i]:=true;
for i:=1 to 100 do
if a[i] then write(n:3);
readln;
end.
本人自编，未试过求加分。