- 博客(3)
- 收藏
- 关注
原创 自然数拆分
从一开始拆,往下搜。 var a:array[0..1000] of longint; n,total:longint; procedure init; begin read(n); end; procedure print(m:longint); var i:longint; begin inc(total); write(total,':',n
2016-11-24 15:54:45 1899
原创 素数环
这道题大胆去搜,不用怕超时。 打印时很吓人。呵呵呵! var a:array[0..21] of longint; b:array[0..21] of boolean; s:longint; function bool(x,y:longint):boolean; var i:longint; begin for i:=2 to trunc(sqrt(x+
2016-11-24 15:53:11 420
空空如也
空空如也
TA创建的收藏夹 TA关注的收藏夹
TA关注的人