编译通过...

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

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

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

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

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

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

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

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

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

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

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

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

可以找规律发现 只要有一个数字的末尾为0，1，4，5，6，9是必胜

2，3，7，8为必败

但怎么证明？？听说什么SG函数？？

巨水

巨水啊

出题者对不起家人。。。。

Water

这题和p1196是一模一样的

为什么？

各位牛人，详细解释一下吧！

while not seekeof会wa哦。。。

迟了40分钟考试

后来去吃夜宵了

再加上题目描述不好

错过了水题一道

补上

编译通过...

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

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

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

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

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

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

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

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

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

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

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

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

注意范围……

var

m,n:string;

begin

while true do

begin

readln(m);

if m='-1' then

break

else

readln(n);

if (m[length(m)] in['2','3','7','8'])and(n[length(n)] in ['2','3','7','8']) then

writeln('SheepDaddy')

else

writeln('MengMeng');

end;

end.

末尾为1 4 5 6 9 0

必胜

=p1196

数据那么大，让人一眼就看出了方法

有循环的

水啊，只要看最后一位就OK了

其实我当时也不相信我做全对...毕竟是考试...

但是2^127次方的数据居然是这样的结果...唉...

简单地列举就可以得到规律.

楼下的先人都是正解.我不赘述了.

楼下无聊，总结一句，两个数都以2或3或7或8结尾就是SheepDaddy,否则MengMeng(MM好名字啊)

1L是真人？？

飘过

var i:byte;

a,b:char;

s:ansistring;

begin

while true do

begin

readln(s); if s='-1' then halt;

a:=s[length(s)];

readln(s); b:=s[length(s)];

if((a='2')or(a='3')or(a='7')or(a='8'))and

((b='2')or(b='3')or(b='7')or(b='8')) then

writeln('SheepDaddy') else writeln('MengMeng');

end;

end.