编译通过...

├ 测试数据 01：答案正确... 0ms

├ 测试数据 02：答案正确... 0ms

├ 测试数据 03：答案正确... 0ms

├ 测试数据 04：答案正确... 0ms

├ 测试数据 05：运行时错误...| 错误号: 216 | 存取非法

├ 测试数据 06：运行时错误...| 错误号: 106 | 无效数字格式

├ 测试数据 07：运行时错误...| 错误号: 106 | 无效数字格式

├ 测试数据 08：运行时错误...| 错误号: 106 | 无效数字格式

├ 测试数据 09：运行时错误...| 错误号: 106 | 无效数字格式

├ 测试数据 10：运行时错误...| 错误号: 106 | 无效数字格式

---|---|---|---|---|---|---|---|-

Unaccepted 有效得分：40 有效耗时：0ms

var s:array[1..10000]of boolean;

a,n,i,t:longint;

begin

readln(a);

n:=a;

while n1 do begin

i:=i+1;

if i=a+1 then i:=1;

if s[i]true then begin

t:=t+1;

if t mod 2=0 then begin

s[i]:=true;

n:=n-1;

end;

end;

end;

for i:=1 to a do

if s[i]true then writeln(i);

end.