#include

int main()

{

int i,j,k,sum;

i=0;

char a[2],b;

a[0]=48;b=48;

while((a[1]=getchar())!='\n'){

b=a[0];

a[0]=a[1];

}

j=b-48;k=a[0]-48; sum=10*j+k;

if(sum%4==1||sum%4==2)

printf("1\n");

else printf("0\n");

}

program c5;

var a:longint;

begin

if (a mod 4=1) or (a mod 4=2) then writeln('1')

else writeln('0');

end.

simply...

var

a:ansistring;

tmp:integer;

begin

readln(a);

tmp:=ord(a[length(a)])-48+(ord(a[length(a)-1])-48)*10;

if (tmp mod 4=1)or(tmp mod 4=2) then begin writeln(1);halt;end

else writeln(0);

end.

编译通过...

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

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

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

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

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

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

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

只能用ansistring，不能用数组

害我WA了N次

水！

water!

编译通过...

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

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

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

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

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

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

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

秒杀

program p1141;

var

re:ansistring;

a:string;

n:longint;

ans:longint;

begin

readln(re);

n:=length(re);

a:=copy(re,n-1,n);

if n>=2 then

begin

ans:=(ord(a[1])-48)*10+(ord(a[2])-48);

if ((ans mod 4)=1) or ((ans mod 4=2))then writeln('1')

else writeln('0');

end

else

begin

ans:=ord(a[1])-48;

if ((ans mod 4=1)) or ((ans mod 4=2))then writeln('1')

else writeln('0');

end;

end.

用字符串读，去后两位，如果余数为1或2输出1，否则输出0

Hi

都贴我也贴

var s:ansistring;

begin

readln(s);

if length(s)>=2 then

if ((ord(s[length(s)-1])-48)*10+(ord(s[length(s)])-48)-1) mod 4

第100题,虽然是条水题,不过很有纪念意义

题解

哈哈规律!!!!!!!!!!!!!!!!!!!!水题

从n等于1开始

结果是:1 1 0 0 1 1 0 0 1 1 0 0 1 1 0 0 1 1 0 0 1 1 0 0 1 1 0 0 1 1 0 0 1 1 0 0 1 1 0 0 1 1 0 0 1 1 0 0 1 1 0 0 1 1 0 0 1 1 0 0 1 1 0 0 1 1 0 0 1 1 0 0 1 1 0 0 1 1 0 0 1 1 0 0 1 1 0 0 1 1 0 0 1 1 0 0 1 1 0 0 1 1 0 0 1 1 0 0 1 1 0 0 1 1 0 0 1 1 0 0 1 1 0 0 1 1 0 0 1 1 0 0 1 1 0 0 1 1 0 0 1 1 0 0 1 1 0 0 1 1 0 0 1 1 0 0 1 1 0 0 ...............

program p1141;

var

len,n:integer;

a:ansistring;

begin

read(a);

len:=length(a);

if len=1 then begin

case a[1] of

'0':begin writeln('0'); halt; end;

'1':begin writeln('1'); halt; end;

'2':begin writeln('1'); halt; end;

'3':begin writeln('0'); halt; end;

'4':begin writeln('0'); halt; end;

'5':begin writeln('1'); halt; end;

'6':begin writeln('1'); halt; end;

'7':begin writeln('0'); halt; end;

'8':begin writeln('0'); halt; end;

'9':begin writeln('1'); halt; end;

end;

end;

if (ord(a[len-1])-48) mod 2 =0 then begin

case a[len] of

'0':begin writeln('0'); halt; end;

'1':begin writeln('1'); halt; end;

'2':begin writeln('1'); halt; end;

'3':begin writeln('0'); halt; end;

'4':begin writeln('0'); halt; end;

'5':begin writeln('1'); halt; end;

'6':begin writeln('1'); halt; end;

'7':begin writeln('0'); halt; end;

'8':begin writeln('0'); halt; end;

'9':begin writeln('1'); halt; end;

end;

end

else

case a[len] of

'0':begin writeln('1'); halt; end;

'1':begin writeln('0'); halt; end;

'2':begin writeln('0'); halt; end;

'3':begin writeln('1'); halt; end;

'4':begin writeln('1'); halt; end;

'5':begin writeln('0'); halt; end;

'6':begin writeln('0'); halt; end;

'7':begin writeln('1'); halt; end;

'8':begin writeln('1'); halt; end;

'9':begin writeln('0'); halt; end;

end;

end.

if n=2 then writeln(1)

else if n mod 4=1 then writeln(1)

else writeln(0)

program lx;

var

n:ansistring;

a:array[1..2001]of integer;

i,l,j:integer;

begin

readln(n);

l:=length(n);

for i:=1 to l do

a[i]:=ord(n[i])-48;

if a[l] mod 2=0 then a[l]:=a[l]-2

else a[l]:=a[l]-1;

for i:=1 to l do

if a[i]

超级水题！！！！！！

大家可以找规律！

白痴型水题。。。

var

s:ansistring;

n:longint;

begin

readln(s);

if length(s)>2 then

val(copy(s,length(s)-1,2),n)

else val(s,n);

if (n*(n+1)) mod 4 = 0 then

writeln(0) else writeln(1);

end.

编译通过...

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

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

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

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

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

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

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

要用ansistring啊!!

我wa了3次,我的AC率啊!55555555555555555555

题目描述太该死了！！！哪里有那么多位？？

规律怎么证明的啊？？？？？？？

哪位大牛写的详细点好吗，看不懂啊

编译通过...

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

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

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

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

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

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

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

庆祝一星！！

Flag 　　Accepted

题号 　　P1141

类型(?) 　　数论 / 数值

通过 　　2140人

提交 　　6484次

通过率 　　33%

难度 　　1

#include

#include

using namespace std;

main ()

{

char a[2003];

int n;

cin>>a;

if (strlen (a)==1)

n=a[0]-'0';

else n=(a[strlen (a)-2]-'0')*10+(a[strlen (a)-1]-'0');

n%=4;

if (n==1 || n==2)

cout

program feifu;

var

str:ansistring;

i,j,code:longint;

begin

readln(str); str:='00'+str; i:=length(str);

val(copy(str,i-1,2),j,code);

if (j mod 4=1) or (j mod 4=2) then writeln('1')

else writeln('0');

end.