83 条题解

  • 0
    @ 2009-06-30 21:48:41

    编译通过...

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

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

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

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

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

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

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

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

    就是water。。。

  • 0
    @ 2009-06-27 23:12:33

    数组要开到200!!!!!

    否则会显示TLE

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

    血的教训....

  • 0
    @ 2009-05-29 13:14:45

    编译通过...

    ├ 测试数据 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.

  • 0
    @ 2009-05-27 22:32:44

    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

  • 0
    @ 2009-05-17 17:53:09

    编译通过...

    ├ 测试数据 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.

  • 0
    @ 2009-05-13 18:29:37

    zsyzhbc

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

  • 0
    @ 2009-04-28 21:04:26

    诡异的题阿……

    考试时

    就冲

    最后一行我就AC不了

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

  • 0
    @ 2009-02-28 21:14:12

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

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

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

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

  • 0
    @ 2009-02-25 19:59:39

    #include

    #include

    int main(void) {

    char num[145];

    int len,i,sum;

    scanf("%s",num);

    len=strlen(num);

    for(i=sum=0;i

  • 0
    @ 2009-02-07 23:17:09

    编译通过...

    ├ 测试数据 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
    @ 2009-01-31 22:22:54

    鄙视啊...

    对于“完全平方数”,

    数据只用了一个性质:完全平方数的末位数只能是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啊!

  • 0
    @ 2009-01-17 14:48:49

    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

    水`\`

  • 0
    @ 2009-01-15 18:57:56

    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.

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

  • 0
    @ 2009-01-11 09:28:05

    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.

  • 0
    @ 2009-01-03 10:56:04

    怎么连这种题也有?

    晕......

  • 0
    @ 2008-12-31 21:25:09

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

  • 0
    @ 2008-12-27 16:13:09

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

    我被题目骗了,他说范围在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

  • 0
    @ 2008-12-22 16:48:51

    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的整数一定不是完全平方数。

  • 0
    @ 2008-12-21 22:33:00

    编译通过...

    ├ 测试数据 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.

  • 0
    @ 2008-12-21 21:31:18

    编译通过...

信息

ID
1490
难度
3
分类
数论 点击显示
标签
(无)
递交数
1126
已通过
584
通过率
52%
被复制
2
上传者