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

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

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

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

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

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

这是lk出的水题，Orz一下

编译通过...

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

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

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

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

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

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

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

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

哪位大牛可以告诉我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

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

用ansistring 取后两位看余数

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

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.

编译通过...

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

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

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

您有新消息

请点击 这里 进入消息中心

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号

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

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

else write(1);

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

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

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

编译通过...

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

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

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

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

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

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

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

同意楼下的

天啊!

谁告诉我ansistring有多大

怎么这样也Ac

编译通过...

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

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

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

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

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

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

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

刷分题

Level

Group Master

提交

82次

通过

28题

通过率

34%

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

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

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

小找一规律啊~~~

编译通过...

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

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

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

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

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

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

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

弱～～～～～～

编译通过...

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

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

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

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

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

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

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

我很菜 不是牛

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

你推一推会看到

1 1

-1+2 1

1+2-3 0

1-2+3-4 0

后面的就开始循环了

1100110011001100。。。。

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

然后求余。。。