150 条题解
-
0
NEWTIMES LV 3 @ 2010-03-09 19:11:01
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. -
0
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.交表就可以了……………………
-
0
编译通过...
├ 测试数据 01：答案正确... 0ms
├ 测试数据 02：答案正确... 0ms
├ 测试数据 03：答案正确... 0ms
├ 测试数据 04：答案正确... 0ms
├ 测试数据 05：答案正确... 0ms
---|---|---|---|---|---|---|---|-
Accepted 有效得分：100 有效耗时：0msvar
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. -
0
Lebron James LV 8 @ 2009-10-06 20:16:51
这题太水了！！！问题很简单，设一个数为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. -
0
偶数判断4的倍数，是0，否则1。
奇数判断(x-1)4的倍数，是1，否则0。-
1159305727 @ 2014-11-01 10:05:04
谢谢
-
-
0
-
0
这题太水了！！！问题很简单，设一个数为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语句一分钟之内就搞定啦！
这里反驳下楼下的奇偶性判断法，这题是数据正好上你们撞上了（为啥我就从来没撞上过呢？！），自己拿张稿纸算算吧……
NEWTIMES
LV 3
@ 2010-03-09 19:11:01
