编译通过...

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

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

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

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

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

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

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

漏了一个字母，WA了一次，不过ac率不算啥。

就是water。。。

数组要开到200!!!!!

否则会显示TLE

永远不要轻信VIJOS的数据范围!!

血的教训....

编译通过...

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

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

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

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

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

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

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

Flag

　　 Accepted

题号

　　P1490

类型(?)

　　数论 / 数值

通过

　　291人

提交

　　606次

通过率

　　48%

难度

　　1

var

s:string;

i,l:integer;

sum:longint;

a:array[0..255]of integer;

v:array[1..5]of boolean;

begin

fillchar(v,sizeof(v),false);

readln(s);

l:=length(s);

for i:=1 to l do a[i]:=ord(s[l+1-i])-48;

if a[1] mod 2 =0 then v[1]:=true;

sum:=0;

for i:=1 to l do sum:=sum+a[i];

if sum mod 3=0 then v[2]:=true;

if (a[2]*10+a[1]) mod 4=0 then v[3]:=true;

if (a[3]*100+a[2]*10+a[1]) mod 8=0 then v[4]:=true;

if (a[1]=1) or (a[1]=4) or (a[1]=9) or (a[1]=5) or (a[1]=6) or (a[1]=0) then v[5]:=true;

for i:=1 to 5 do writeln(ord(v[i]));

end.

1、最后一位能被2整除的就能被2整除（废话）

2、数字和加起来能被3整除的能被3整除

3、后两位能被4整除的能被4整除

4、后三位能被8整除的能被8整除

5、末位数字不是2、3、7、8的有可能是完全平方数（这个直接写1即可）

程序如下：

program temp;

var

st:string;

l,i:integer;

s:longint;

begin

readln(st);

l:=length(st);

if ((ord(st[l])-48) mod 2 = 0) then writeln('1') else writeln('0');

for i:=1 to l do

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

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

s:=10*(ord(st[l-1])-48)+ord(st[l])-48;

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

s:=s+100*(ord(st[l-2])-48);

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

if ((st[l]='2')or(st[l]='3')or(st[l]='7')or(st[l]='8')) then

writeln('0')

else writeln('1');

end.

烦val

编译通过...

├ 测试数据 01：运行超时...

├ 测试数据 02：运行超时...

├ 测试数据 03：运行超时...

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

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

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

Unaccepted 有效得分：40 有效耗时：0ms

我靠~~~~！这种程序居然会超时！？！？！？！？！？

program shu;

var a:array[-1..100]of integer;

s:string;

i,d:integer;

begin

readln(s);

for i:=1 to length(s) do

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

if a[length(s)] mod 2=0

then writeln(1) else writeln(0);

for i:=1 to length(s) do

d:=d+a[i];

if d mod 3=0

then writeln(1) else writeln(0);

if (a[length(s)]+a[length(s)-1]*10)mod 4=0

then writeln(1) else writeln(0);

if (a[length(s)]+a[length(s)-1]*10+a[length(s)-2]*100)mod 8=0

then writeln(1) else writeln(0);

case a[length(s)] of

0,1,4,5,6,9:writeln(1);

else writeln(0);

end;

end.

zsyzhbc

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

诡异的题阿……

考试时

就冲

最后一行我就AC不了

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

题目描述的十分十分的不清楚。

什么叫判断是否可能是完全平方数？这个可能是怎么可能法？

所有的数据最后一个判断都只要一句writeln(1)就过。

题目如果出的有点水平，就直接求是否可以就行了。写个高精度逐位逼近。

#include

#include

int main(void) {

char num[145];

int len,i,sum;

scanf("%s",num);

len=strlen(num);

for(i=sum=0;i

编译通过...

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

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

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

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

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

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

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

大家一起来鄙视我吧

#include "stdio.h"

#include "string.h"

main()

{ char a[500];

int s[500],sum=0,i,len,h1,h2;

scanf("%s",a);

len=strlen(a);

for(i=0;i

鄙视啊...

对于“完全平方数”，

数据只用了一个性质：完全平方数的末位数只能是0,1,4,5,6,9。

实际上还有：

（1）如果完全平方数的十位数字是奇数，则它的个位数字一定是6。

（2）偶数的平方是4的倍数；奇数的平方是4的倍数加1。

（3）奇数的平方是8n+1型；偶数的平方为8n或8n+4型。

（4）平方数的形式必为下列两种之一：3k,3k+1。

（5）平方数为5k±1或5k型。

但是数据并没有考虑到！！！

看来严谨导致WA啊！

var n:string;

i,a,b:longint;

code:integer;

begin

readln(n);

val(n[length(n)],a);

if a mod 2=0 then writeln('1')

else writeln('0');

a:=0;

for i:=1 to length(n) do

begin

val(n[i],b);

a:=a+b;

end;

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

else writeln('0');

val((n[length(n)]+n[length(n)-1]),a);

if a mod 4=0 then writeln('1')

else writeln('0');

val((n[length(n)]+n[length(n)-1]+n[length(n)-2]),a);

if a mod 8=0 then writeln('1')

else writeln('0');

writeln('1');

end.

数学方法分别判断

最后那个‘完全平方数’就不管他拉~~~

编译通过...

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

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

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

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

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

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

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

水`\`

program tt;

var i,j,n,m,k:integer;

s:ansistring;

c:char;

begin

readln(s);

c:=s[length(s)];

if (c='0')or(c='2')or(c='4')or(c='6')or(c='8') then

writeln(1) else writeln(0);

n:=0;

for i:=1 to length(s) do begin

val(s[i],m,j);

n:=n+m;

end;

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

val(s[length(s)],n,j);

val(s[length(s)-1],m,j);

if (n+m*10) mod 4=0 then writeln(1) else writeln(0);

val(s[length(s)-2],k,j);

if (k*100+m*10+n) mod 8=0 then writeln(1) else writeln(0);

if (c='0')or(c='1')or(c='4')or(c='5')or(c='6')or(c='9') then

writeln(1) else writeln(0);

readln;

end.

数学问题，一个很笨拙的方法

var s,z1,z2,z3,z4:ansistring;

c1,c2,c3,c4,i,v,a:longint;

code:integer;

begin

readln(s);

v:=length(s);

z1:=copy(s,v,1);

val(z1,c1,code);

if (c1=0) or (c1=2) or (c1=4) or (c1=6) or (c1=8) then writeln('1')

else writeln('0');

for i:=1 to v do

begin

z2:=copy(s,i,1);

val(z2,a,code);

c2:=c2+a;

end;

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

else writeln('0');

z3:=copy(s,v-1,2);

val(z3,c3,code);

if c3 mod 4=0 then writeln('1')

else writeln('0');

z4:=copy(s,v-2,3);

val(z4,c4,code);

if c4 mod 8=0 then writeln('1')

else writeln('0');

writeln('1');

end.

怎么连这种题也有？

晕......

很水。。但我将一个水程序失误性的连交了3次。。

啊啊啊啊啊啊啊啊啊啊啊啊啊啊啊啊啊

我被题目骗了，他说范围在1000到10^31之间，纯扯淡，测试数据就超了，我还老老实实地开到32个，我的正确率啊，拉下去了那么多，不过这题的正确率也被我拉下去了好多，唉，数组一定要开大，比如500个……

编译通过...

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

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

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

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

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

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

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

Flag 　　 Accepted

题号 　　P1490

类型(?) 　　数论 / 数值

通过 　　128人

提交 　　278次

通过率 　　46%

难度 　　1

1.个位数是2,3,7,8的整数一定不是完全平方数；　

2.个位数和十位数都是奇数的整数一定不是完全平方数；

3.个位数是6，十位数是偶数的整数一定不是完全平方数；

4.形如3n+2型的整数一定不是完全平方数；

5.形如4n+2和4n+3型的整数一定不是完全平方数；

6.形如5n±2型的整数一定不是完全平方数；

7.形如8n+2, 8n+3, 8n+5, 8n+6,8n+7型的整数一定不是完全平方数；

8.数字和是2,3,5,6,8的整数一定不是完全平方数。

编译通过...

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

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

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

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

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

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

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

很容易理解...

program p1490;

var

n:string;

l,i,a,b,c,d,code:integer;

begin

readln(n);

l:=length(n);

val(copy(n,l,1),a,code);

b:=0;

for i:=1 to l do

inc(b,ord(n[i])-48);

val(copy(n,l-1,2),c,code);

val(copy(n,l-2,3),d,code);

if a mod 2=0

then writeln(1)

else writeln(0);

if b mod 3=0

then writeln(1)

else writeln(0);

if c mod 4=0

then writeln(1)

else writeln(0);

if d mod 8=0

then writeln(1)

else writeln(0);

writeln(1);

end.

编译通过...