新手~~~急求帮助!!!

编译通过...

├ 测试数据 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.

3 条评论

  • @ 2016-05-29 12:00:35

    100位,不是100

  • @ 2013-07-30 14:28:25

    n不超过100位啊大哥,这要用高精度做的

  • @ 2010-04-16 15:39:26

    n不超过100位 100位 100位 100位 100位 100位 100位!!!!!!!!!

  • 1

信息

ID
1095
难度
6
分类
其他 | 数学 点击显示
标签
(无)
递交数
2356
已通过
662
通过率
28%
被复制
14
上传者