题解

150 条题解

  • 0
    @ 2008-09-26 02:43:09

    编译通过...

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

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

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

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

    ├ 测试数据 05:运行超时...

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

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

    要是按字符读入居然会超时的。。。。

  • 0
    @ 2008-09-21 09:31:34

    哪位大牛可以告诉我ansistring它有多长?

    为什么我的程序不行?

    program f;

    var

    c:char;

    l1:integer;

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

    begin

    fillchar(a,sizeof(a),0);

    l1:=0;read(c);

    while cchr(13) do

    begin

    inc(l1);a[l1]:=ord(c)-48;read(c);

    end;

    l1:=(a[l1]+a[l1-1]) mod 4;

    if (l1=3) or (l1=0) then writeln(0)

    else writeln(1);

    readln;readln;

    end.

    编译通过...

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

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

    ├ 测试数据 03:答案错误... ├ 标准行输出

     ├ 错误行输出

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

    ├ 测试数据 05:运行超时...

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

    Unaccepted 有效得分:20 有效耗时:0ms

  • 0
    @ 2008-09-19 18:12:48

    整除4余1或3的数最小非负值是0 否则为1 证明自己想~~~

    用ansistring 取后两位看余数

    ps:老师曰:末尾两位能整除4的数能被4整除

  • 0
    @ 2008-09-12 13:46:34

    program v1141;

    var

    s:ansistring;

    n,code:longint;

    begin

    readln(s);

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

    if (n mod 4=1) or (n mod 4=2)

    then writeln('1')

    else writeln('0');

    end.

  • 0
    @ 2008-09-10 18:43:34

    编译通过...

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

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

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

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

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

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

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

    var

    s:ansistring;

    n,m,i:longint;

    begin

    readln(s);

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

    n:=10*n+ord(s[i])-ord('0');

    n:=n mod 4;

    if n=0 then m:=0

    else if n=1 then m:=1

    else if n=2 then m:=1

    else if n=3 then m:=0;

    writeln(m);

    end.

  • 0
    @ 2008-09-06 09:08:38

    保存后两位,注意要用ansistring,否则会出现错误。

  • 0
    @ 2008-09-04 19:44:52

    系统正在处理您的请求 请勿刷新此页……

    您有新消息

    请点击 这里 进入消息中心

    47 / 83 (57%)   首页 站务 公告 | 题库/分类/原题 记录 比赛 团队 交流 讨论 | U-Space 搜索 换肤 | 登出

    公告 News >>   New! CSC WorkGroup 邀请赛II 按原计划原时间举行 (2008-9-4 14:39:42)   New! 热烈庆祝Vijos总评测记录突破80万条 (2008-9-2 6:33:35)   New! Vijos 交流板块开放 (2008-8-30 22:29:55)   New! CSC WorkGroup 邀请赛II (2008-8-30 0:12:12)   New! 简单的生活模拟赛 评测结束 (2008-8-30 0:10:00)

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

    记录号 Flag 得分 记录信息 环境 评测机 程序提交时间

    R805081 Accepted 100 From 695202454-

      P1141 FPC Vijos Dolphin 2008-9-4 19:44:14

    From lk

    最小非负值

    编译通过...

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

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

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

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

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

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

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

    Flag    Accepted

    题号   P1141

    类型(?)   数论 / 数值

    通过   1931人

    提交   5933次

    通过率   33%

    难度   1

    提交 讨论 题解

    695202454

     Copyright Vijos 高效信息学在线评测系统 © 2005-2008. www.Vijos.cn Powered by Vivian Snow 关于 联系 帮助

     Vijos Infor ---|- Total Users : 27771 | Online Users / Processes : 63 / 517 | Proc. Time : 352 ms | Current Time : 2008-9-4 19:44:21 湘ICP备06015828号

  • 0
    @ 2008-08-27 23:22:09

    无与伦比BS自己……………………

    if (m mod 4=1)or(m mod 4=2) then write(0)

    else write(1);

    居然写出这种语句,摆明是葬送自己的AC率…………………………

  • 0
    @ 2008-08-22 16:28:47

    我BS自己。。。。竟然错选了PAS。。。。。

  • 0
    @ 2008-08-04 20:38:16

    看了很多,还是楼下的简洁一些..

  • 0
    @ 2007-12-22 13:29:28

    编译通过...

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

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

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

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

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

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

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

    同意楼下的

  • 0
    @ 2007-12-22 13:27:04

    天啊!

    谁告诉我ansistring有多大

    怎么这样也Ac

  • 0
    @ 2007-11-10 11:41:54

    编译通过...

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

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

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

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

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

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

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

    刷分题

  • 0
    @ 2007-11-02 15:32:30

    Level

    Group Master

    提交

    82次

    通过

    28题

    通过率

    34%

  • 0
    @ 2007-11-01 23:26:33

    忘了把调试时的东西删了……不小心把数据骗来了……

    http://www.vijos.cn/Record_Show.asp?id=557712

    不小心把后2位给输出了……神啊,饶恕我吧!

  • 0
    @ 2007-10-31 22:32:47

    小找一规律啊~~~

  • 0
    @ 2007-10-09 20:23:09

    编译通过...

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

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

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

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

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

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

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

    弱~~~~~~

  • 0
    @ 2007-10-06 08:50:27

    编译通过...

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

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

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

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

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

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

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

  • 0
    @ 2007-09-09 18:32:23

    我很菜 不是牛

    +++++++++++++++++

    你推一推会看到

    1 1

    -1+2 1

    1+2-3 0

    1-2+3-4 0

    后面的就开始循环了

    1100110011001100。。。。

    因为100的倍数都能被4整除 所以只看数据的后两位就行了

    然后求余。。。

  • 0
    @ 2007-08-24 19:37:12

    只要保存最后两位就行了

信息

ID
1141
难度
5
分类
高精度 | 其他 点击显示
标签
(无)
递交数
4256
已通过
1415
通过率
33%
被复制
12
上传者