只不过val时写起始位置少加了1，0分

加上以后就

编译通过...

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

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

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

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

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

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

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

type

int=longint;

var

s:ansistring;

n,m:int;

begin

readln(s);readln(m);

val(copy(s,length(s)-m+1,m),n);

m:=1 shl m;

writeln(int64(n*3+1) mod m);

readln(n)

end.

...(3个点不过...)

type

int=int64;

var

s:ansistring;

n,m:int;

begin

readln(s);readln(m);

val(copy(s,length(s)-m+1,m),n);

m:=1 shl m;

writeln((n*3+1) mod m);

readln(n)

end.

(这样会一直runing...)

为什么会这样...#15

貌似就算只取后M位进行操作N也要用INT64...

原来看不懂题目描述

现在看来 ..10行就够了

顺便庆祝第180题 可惜不是一次AC..

把shl 打成 shr

我晕.......

关键代码

writeln(3*n+1);

题目看不懂

visister

真是superman,偶豁然开朗矣。。。

不知道下面谁说 longint够用啊

爆汗

应该是。。。。int64

中考填空题水平，鉴定完毕

编译通过...

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

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

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

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

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

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

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

如果要用字符串读的n的话，一定要用ansistring类型

范围是n，m

题目描述不清啊，应该是添加边以后边的条数，不是各个多边形边的条数啊……真恶……

鄙视一下这条的数据....

两句话搞定

val(copy(n,length(n)-m+1,m),k);

writeln((3*k+1)mod (1 shl m));

这题真会忽悠人!

看懂之后,原来水题一道!

哎!

编译通过...

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

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

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

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

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

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

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

第1000个提交的。

貌似pow(x,y)函数并不是x^y;

害我提交了N次；

都是全错；

没用pow后就AC了！

真的很郁闷呢！

ansistring

Yeah!

rt!

楼上上 太强了

只取末k位计算 k

把思路说一下拉