为什么我第二组数据过不了?

program P1141;

var n:string;

m:integer;

code:integer;

x:integer;

begin

read(n);

n:=copy(n,length(n)-1,2);

val(n,m,code);

x:=m mod 4;

begin

if (x=1) or (x=2) then write(1)

else if (x=0) or (x=3) then write(0);

end;

end.

1 条评论

  • @ 2009-10-08 13:20:33

    原来我没用ansistring,用成了string,

    wa了8次,AC率从87%降到40%……

  • 1

信息

ID
1141
难度
5
分类
高精度 | 其他 点击显示
标签
(无)
递交数
4260
已通过
1416
通过率
33%
被复制
13
上传者