10^2000不用高精？

错了，我是说10^2000可以直接读入？

var

n,m,i,s:longint;

begin

read(n);

for m:=1 to n do

i:=n mod 4;

case i of

1:begin

if i=1

then s:=1;

write(s);

end;

2:begin

if i=2

then s:=1;

write(s);

end;

3:begin

if i=3

then s:=0;

write(s);

end;

4:begin

if i=0

then s:=0;

write(s);

end;

end;

end.

var

st:ansistring;

s:string[3];

n,code:integer;

begin

readln(st);

s:=copy(st,length(st)-1,2);

val(s,n,code);

case (n mod 4)of

0,3:writeln(0);

1,2:writeln(1)

end;

end.

就这几行

我提交了4遍！！！

加油哦！

Accepted 有效得分：100 有效耗时：0ms

program p1141(input,output);

var c1,c2:char;

dx:longint;

begin

read(c2);

c1:='0';

while not eoln(input) do

begin

c1:=c2;

read(c2);

end;

dx:=(ord(c1)-48)*10+ord(c2)-48;

dx:=dx mod 4;

case dx of

0:writeln(0);

1:writeln(1);

2:writeln(1);

3:writeln(0);

end;

end.

交表就可以了……………………

10^1000用不用用高精?????

其实这题只需要一个变量，一个if就够了

当(ord(s[length(s)-1])*10+ord(s[length(s)])-525) mod 4

var c:array[1..1000]of char;

i,x:longint;

begin

while not eof(input) do

begin inc(i); read(c[i]) end;

while not(c[i] in ['0'..'9']) do dec(i);//就怕把回车什么的读进去..

x:=ord(c)*10+ord(c[i])-528;

if x mod 4 in[1..2] then writeln(1) else writeln(0);

end.

编译通过...

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

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

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

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

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

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

Accepted 有效得分：100 有效耗时：0ms

var

s:ansistring;

i,n:longint;

begin

readln(s);

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

val(s,n);

n:=n mod 4;

case n of

1,2:writeln(1);

3,0:writeln(0); {---|>一开始写成了3,4:writeln(0);然后就WA了……}

end;

end.

n分解

n-(n+1)-(n+2)+(n+3)....=0

讨论下N的情况即可

这题太水了！！！问题很简单，设一个数为n

n-(n+1)-(n+2)+(n+3)=0

我们就只要mod4就OK了，mod4只跟后两位有关，ansistring读入，delete之后转为数字，再mod4。

我们从后面四个四个变成0，就只要讨论四种情况：剩下为（没有）、（1）、（1，2）、（1，2，3）

没有肯定就0了

剩一个是1

剩两个是-1+2=1

剩三个是-1-2+3=0

然后case语句一分钟之内就搞定啦！

这里反驳下楼下的奇偶性判断法，这题是数据正好上你们撞上了，自己拿张稿纸算算吧……

源程序想看的用鼠标选中下面~

program P1141; var n,code:integer; s:ansistring;begin readln(s); delete(s,1,length(s)-2); val(s,n,code); n:=n mod 4; case n of 0,3:writeln('0'); 1,2:writeln('1'); end;end.

先判断倒数第二位是奇数还是偶数

分别求出最后一位为1-9时答案是多少并打表

偶数判断4的倍数，是0，否则1。

奇数判断(x-1)4的倍数，是1，否则0。

12行

简单想法题解

http://user.qzone.qq.com/99021316/blog/1241098815

这题太水了！！！问题很简单，设一个数为n

n-(n+1)-(n+2)+(n+3)=0

我们就只要mod4就OK了，mod4只跟后两位有关，ansistring读入，delete之后转为数字，再mod4。

我们从后面四个四个变成0，就只要讨论四种情况：剩下为（没有）、（1）、（1，2）、（1，2，3）

没有肯定就0了

剩一个是1

剩两个是-1+2=1

剩三个是-1-2+3=0

然后case语句一分钟之内就搞定啦！

这里反驳下楼下的奇偶性判断法，这题是数据正好上你们撞上了（为啥我就从来没撞上过呢？！），自己拿张稿纸算算吧……

我吐血啊 又WA了2次

没注意范围。。。 可能吧- =

反正我总是悲剧。。。

这题描述有点漏洞。。。。。

测试数据中有个数据是0，按理说0、1序列得到的最小非负值是1，可答案却是0.

害我wa的N次。。。。。。

附下我找到的规律：

当该数是偶数时，判断是否为4的倍数，是则输出0，否则输出1。

当该数是奇数时，判断“该数减一”是否为4的倍数，是则输出1，否则输出0。

这题可以用random做。。。。

15行