楼主乃晴天一霹雳！！！！！！！！

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

var i,a1,a2,a3,h:longint;s,t:string;

begin

readln(s);

a1:=0;

for i:=1 to length(s) do

begin

a1:=ord(s[i])-ord('0')+a1;

end;

t:=copy(s,length(s),1);

val(t,h);

if h mod 2=0 then writeln(1) else writeln(0);

if a1 mod 3=0 then writeln(1) else writeln(0);

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

val(t,h);

if h mod 4=0 then writeln(1) else writeln(0);

t:=copy(s,length(s)-2,3);

val(t,h);

if h mod 8 =0 then writeln(1) else writeln(0);

t:=copy(s,length(s),1);

if (t='2')or(t='3')or(t='7')or(t='8') then writeln(0) else writeln(1);

end.

看完题就知道有鬼了

jiamomo的资料哪来的，感到挺实用的，

末尾 0、1、4、5、6、9 可能是完全平方数

我的题解 第554人

program sadf;var s:string; a:array[1..10000] of integer; i,b:longint;begin readln(s); for i:=1 to length(s) do val(s[i],a[length(s)-i+1]); for i:=1 to length(s) do b:=b+a[i]; if a[1] mod 2 =0 then writeln(1) else writeln(0); if b mod 3=0 then writeln(1) else writeln(0); if (a[2]*10 + a[1]) mod 4 = 0 then writeln(1) else writeln(0); if (a[3]*100 +a[2]*10+a[1])mod 8=0 then writeln(1) else writeln(0); writeln(1);end.

有可能为完全平方数？

这个不严谨吧，怎么个可能法？

注意了～～数组开到100的话第二个点会答案错误～

我开到1000就过了

编译通过...

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

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

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

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

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

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

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

program P1490;

var i,l,x:longint;

s:string;

a:array[0..10000] of longint;

begin

readln(s);

l:=length(s);

x:=0;

for i:=1 to l do

begin

a[i]:=ord(s[l-i+1])-ord('0'); x:=x+a[i];

end;

if a[1] mod 2=0 then writeln(1) else writeln(0);

if x mod 3=0 then writeln(1) else writeln(0);

if (a[1]+a[2]*10) mod 4=0 then writeln(1) else writeln(0);

if (a[1]+a[2]*10+a[3]*100) mod 8=0 then writeln(1) else writeln(0);

writeln(1);

end.

第500AC

var s:string;

t,i:integer;

begin

readln(s);

if (ord(s[length(s)])-48) mod 2=0 then writeln(1)

else writeln(0);

for i:=1 to length(s) do

t:=t+ord(s[i])-48;

if t mod 3=0 then writeln(1)

else writeln(0);

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

else writeln(0);

if ((ord(s[length(s)-2])-48)*100+(ord(s[length(s)-1])-48)*10+(ord(s[length(s)])-48)) mod 8=0 then writeln(1)

else writeln(0);

if (s[length(s)]='0') or (s[length(s)]='1') or (s[length(s)]='4') or (s[length(s)]='9') or (s[length(s)]='6') or (s[length(s)]='5') then writeln(1)

else writeln(0);

end.

末尾是5也可以是平方数的

所以ls的ls写错了。。。

不过似乎没关系

“有可能是完全平方数”原来是这个意思……

这太蒙人了吧……为什么不弄成所有整数都有可能是完全平方数呢？！

⊙﹏⊙b汗___|\___|_My God~~~~

第448人！！！！

真不吉利。。。。。

这题其实很水，用到小学数学和一点完全平方的知识而已。。。。

为啥这么少人过？！！

暴汗ing...

/*

LANG: PASCAL

*/

var

s:ansistring;

e,len,i:longint;

begin

readln(s);

if length(s)>3 then val(copy(s,length(s)-3,4),len)

else val(s,len);

if odd(len) then writeln(0) else writeln(1);

e:=0;

for i:=1 to length(s) do inc(e,ord(s[i])-48);

if e mod 3=0 then writeln(1) else writeln(0);

if (len and 3)=0 then writeln(1) else writeln(0);

if (len and 7)=0 then writeln(1) else writeln(0);

len:=len mod 10;

if len in [1,4,6,9,0] then writeln(1) else writeln(0);

end.

水水水水水水水水水水水水水水

var n1:string;

n:array[0..1000] of longint;//╭(╯^╰)╮

i,t2,t3,t4,t8,s3:longint;

begin

readln(n1);

for i:=1 to length(n1) do n[length(n1)-i+1]:=ord(n1[i])-ord('0');

if n[1] mod 2=0 then writeln('1')

else writeln('0');

s3:=0;

for i:=1 to length(n1) do s3:=s3+n[i];

if s3 mod 3=0 then writeln('1')

else writeln('0');

if (n[1]+n[2]*10) mod 4=0 then writeln('1')

else writeln('0');

if (n[1]+n[2]*10+n[3]*100) mod 8=0 then writeln('1')

else writeln('0');

write('1');

end.

题题题题题题题题题题题题题题题题题题题题题题题题水水水水水水水水水题题题题

题题题题题题题题题题题题题题题题题题水水水水水水水水水水水水水水水题题题题

题题题题题题题题题题题题题题题题水水水水水水水水水水水水水水水题题题题题题

题题题题题题题题题题题水水水水题水水水水水水水水水水水题题题题题题题题题题

题题题题题题题题水水水水水水水题水水水题题水水水水水题题题题题题题题题题题

题题题水水水水水水水水水水水水题题题题题题水水水水题题题题题题题题题题题题

题水水水水水水水水水水水水水水题题题题题题水水水水题题题题题题题题题题题题

题水水水水水水水水水水水水题题题题题题题水水水水水水水水水水水题题题题题题

题水水水水水水水水水水水水题题题题题题水水水水水水水水水水水水水水题题题题

题题水水水水水水水水水水题题题题题水水水水水水题题题水水水水水水水题题题题

题题题题题题题题水水水水题题题题题水水水水题题题题题题水水水水水题题题题题

题题题题题题题题水水水水题题题题水水水水题题水水题题题水水水水水题题题题题

题题题题题题题题水水水水题题题题水水水水题题水水水水题水水水水水题题题题题

题题题题题题题题水水水水题题题题水水水水题题水水水水题水水水水水题题题题题

题题题题题题题题水水水水题题题题水水水水题题水水水题题水水水水水题题题题题

题题题题题题题题水水水水题题题题水水水水题题水水水题题水水水水水题题题题题

题题题题题题题题水水水水题题题题水水水水题水水水水题题水水水水水题题题题题

题题题题题题题题水水水水题题题题水水水水题水水水水题题水水水水水题题题题题

题题题题题题题题水水水水题题题题水水水水题水水水水题题水水水水水题题题题题

题题题题题题题题水水水水题题题题水水水水题水水水水题题水水水水水题题题题题

题题题题题题题题水水水水题题题题水水水题题水水水水题题水水水水水题题题题题

题题水水题题题水水水水水题题题题水水水题题水水水题题题水水水水水题题题题题

题题水水水水水水水水水水题题题题题水水题题水水题题题题水水水水水题题题题题

题题题水水水水水水水水水题题题题题题题题水水水题题题题水水水水题题题题题题

题题题题题水水水水水水水题题题题题题题题水水水题水水水水题题题题题题题题题

题题题题题题水水水水水水题题题题题题题水水水水题题水水水水题题题题题题题题

题题题题题题题题题水水水题题题题题题水水水水水题题题水水水水水水水题题题题

题题题题题题题题题题题题题题题题水水水水水水题题题题题水水水水水水题题题题

题题题题题题题题题题题题题题题水水水水水水题题题题题题水水水水水水水题题题

题题题题题题题题题题题题题题水水水水水题题题题题题题题题水水水水水水题题题

题题题题题题题题题题题题题水水水水水题题题题题题题题题题题水水水水题题题题

题题题题题题题题题题题题水水水题题题题题题题题题题题题题题题水水水题题题题

题题题题题题题题题题题题题题题题题题题题题题题题题题题题题题题题题题题题题

ORZ

Orz LS

我10行AC

Orz楼下的高精度模版……

适合作普及组第一题。。。。。

编译通过...

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

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

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

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

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

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

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

我爱水题 (≧▽≦)/

---|---|---|---|---|---|---|---|---|--晒晒水题（人人有责）---|---|---|---|---|---|-

var i,l,sum:longint;

st:string;

a:array[0..1000] of longint;

begin

readln(st);

l:=length(st);

sum:=0;

for i:=1 to l do

begin

a[i]:=ord(st[l-i+1])-ord('0');

sum:=sum+a[i];

end;

if a[1] mod 2=0 then writeln(1) else writeln(0);

if sum mod 3=0 then writeln(1) else writeln(0);

if (a[1]+a[2]*10)mod 4=0 then writeln(1) else writeln(0);

if (a[1]+a[2]*10+a[3]*100)mod 8=0 then writeln(1) else writeln(0);

if not(a[1] in [2,3,7,8]) then writeln(1) else writeln(0);

end.

此题猥琐之极！！！数据BT 本人按题意开32位数组本地没法过，一气之下开了10000的数组 过了……气的要死！！

鄙视出题的人！！！！！！！！！！！！猥琐之极！

能被某数整除的数的特点（1）1与0的特性： 1是任何整数的约数，即对于任何整数a，总有1|a. 0是任何非零整数的倍数，a≠0,a为整数，则a|0. （2）若一个整数的末位是0、2、4、6或8，则这个数能被2整除。 （3）若一个整数的数字和能被3整除，则这个整数能被3整除。 (4) 若一个整数的末尾两位数能被4整除，则这个数能被4整除。 （5）若一个整数的末位是0或5，则这个数能被5整除。 （6）若一个整数能被2和3整除，则这个数能被6整除。 （7）若一个整数的个位数字截去，再从余下的数中，减去个位数的2倍，如果差是7的倍数，则原数能被7整除。如果差太大或心算不易看出是否7的倍 数，就需要继续上述「截尾、倍大、相减、验差」的过程，直到能清楚判断为止。例如，判断133是否7的倍数的过程如下：13－3×2＝7，所以133是7 的倍数；又例如判断6139是否7的倍数的过程如下：613－9×2＝595 ， 59－5×2＝49，所以6139是7的倍数，余类推。 （8）若一个整数的未尾三位数能被8整除，则这个数能被8整除。 （9）若一个整数的数字和能被9整除，则这个整数能被9整除。 （10）若一个整数的末位是0，则这个数能被10整除。 （11）若一个整数的奇位数字之和与偶位数字之和的差能被11整除，则这个数能被11整除。11的倍数检验法也可用上述检查7的「割尾法」处理！过程唯一不同的是：倍数不是2而是1！ （12）若一个整数能被3和4整除，则这个数能被12整除。 （13）若一个整数的个位数字截去，再从余下的数中，加上个位数的4倍，如果差是13的倍数，则原数能被13整除。如果差太大或心算不易看出是否13的倍数，就需要继续上述「截尾、倍大、相加、验差」的过程，直到能清楚判断为止。 （14）若一个整数的个位数字截去，再从余下的数中，减去个位数的5倍，如果差是17的倍数，则原数能被17整除。如果差太大或心算不易看出是否17的倍数，就需要继续上述「截尾、倍大、相减、验差」的过程，直到能清楚判断为止。 （15）若一个整数的个位数字截去，再从余下的数中，加上个位数的2倍，如果差是19的倍数，则原数能被19整除。如果差太大或心算不易看出是否19的倍数，就需要继续上述「截尾、倍大、相加、验差」的过程，直到能清楚判断为止。 （16）若一个整数的末三位与3倍的前面的隔出数的差能被17整除，则这个数能被17整除。 （17）若一个整数的末三位与7倍的前面的隔出数的差能被19整除，则这个数能被19整除。 （18）若一个整数的末四位与前面5倍的隔出数的差能被23(或29)整除，则这个数能被23整除

代码如下：(哈哈 代码是白色的 想好了再看啊……全选就可以看清代码了)

#include#includeint main(){ char a[1000]; int i,len,temp=0; gets(a); len=strlen(a); if((a[len-1]-'0')%2==0) printf("1\n"); else printf("0\n"); for(i=0;i

刷下1%,水题不能沉